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ABSTRACT 


Files  were  constructed  at  the  Defense  Manpower  Data  Center 
( DMDC)  for  analyis  of  ship  readiness.  Navy  enlisted  personnel 
attached  to  the  ships,  in  each  observed  ship  class,  were  selected. 
Service-entry  information  was  supplemented  with  updated  quarterly 
data,  for  the  quarters  ending  7609  to  8303,  resulting  in  individual 
longitudinal  records.  The  Active  Duty  Military  Master  and  Loss 
Edit  provided  the  entry  and  quarterly  information  for  each  record. 

Extractions  from  the  2754  position  file  were  made  for  computa¬ 
tional  purposes.  In  addition,  binary  coding  format  was  converted 
to  character  format  on  tapes  sent  to  the  Center  for  Naval  Analysis 
(CNA)  to  meet  computer  system  specifications.  These  files  were 
used  to  examine  personnel  attributes  in  relation  to  ship  readiness, 
but  also  provide  excellent  sources  of  data  for  a  variety  of 
applications. 
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FOREWORD 


File  extractions,  concatenations  and  recoding  procedures 
were  done  by  Mr.  William  H.  King  of  BDM  Services,  utilizing 
DMDC  software  (shown  in  the  appendix).  Ms.  Barbara  Cunningham 
of  DMDC  wrote  the  PL-1  program  providing  the  ships'  personnel 
requirements  and  fill-ratios.  Dr.  William  E.  McGarvey,  of  the 
Naval  Postgraduate  School,  used  the  constructed  "working  file", 
for  his  statistical  analyses. 
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DATA  BASE  DEVELOPMENT  FOR  SHIP  READINESS  ANALYSES 


I.  RECORD  SELECTION 

The  Defense  Manpower  Data  Center  (DMDC)  serves  as  a  central 
facility  within  the  Department  of  Defense  for  the  collection 
and  integration  of  personnel  data.  The  DMDC  Active  Duty  Military 
Master  and  Loss  File,  contains  extracts  of  each  individual's 
personnel  file,  and  is  updated  on  a  quarterly  basis  with  information 
received  from  the  Navy  Military  Personnel  Center  (NMPC) .  This 
file  of  Navy  enlisted  personnel  data  was  used  as  the  initial 
database  for  this  study,  and  was  supplemented  with  data  from 
the  DMDC  Active  Duty  Military  Master  and  Loss  File,  described 
in  Table  1. 

The  entire  set  of  Navy  enlisted  personnel  records  was  selected 
for  all  personnel  attached  to  the  ships  in  each  of  the  observed 
classes,  listed  in  Table  2.  The  Unit  Identification  Code  (UIC) 
of  each  ship  is  unique  and  was  used  in  selecting  the  personnel 
records  for  the  analysis.  These  records  contain  both  current 
information  on  each  individual  at  the  date  of  the  record  and 
information  from  that  individual's  record  at  time  of  entry  to 
active  duty.  Personnel  records  were  selected  for  each  quarter 
from  30  September  1976  to  31  March  1983,  a  total  of  27  time-periods. 

II.  FORMATION  OF  INDIVIDUAL  LONGITUDINAL  RECORDS 

For  any  person  attached  to  any  of  the  given  ships  (UICs) 

during  these  periods,  a  longitudinal  record  was  constructed 
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TABLE  1.  ACTIVE  DOTY  MILITARY  MASTER  AND  LOSS 
EDIT  FILE  FORMAT 

Record  length  =  150 

(The  first  54  bytes  were  used  to  create  the  initial  file.) 


Column  (si 


Description 


1-4 

5-6 

7-8 

9-10 

11 

12 

13 

14 

15-17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29-30 

31 

32 

33 

34-40 

41-43 

44 

45-47 


48-50 

51-52 

53-54 

55-56 


57 

58 

59 


Social  Security  Number 

Total  Active  Federal  Military  Service 

DoD  Primary  Occupation  Group 

DoD  Duty  Occupation  Group 

Highest  Year  of  Education 

AFQT  Percentile  (Enlisted) 

Paygrade 

Home  of  Record:  State  or  County 
Date  of  Birth  (Year/Month/Day) 

Service 

Race 

Source  of  Entry  (Officer)  * 

Filler 

Marital  Status 

Number  of  Dependents 

File  Date 

Ethnic  Group 

Race  Ethnic  Affiliation 

Sex 

Education  *  Mental  Category  (Enl) 

Years  of  Commissioned  Service  (Off) 

DoD  Secondary  Occupation  Code 
Mental  Category  (Enlisted) 

Age  at  Entry 

Age  at  Separation  (Loss) 

Current  Age  (Master) 

Primary  MOS  or  Navy  Officer 
Designator 

Separation  Program  Designator  (Loss) 
Interservice  Separation  Code  (Loss) 

Date  of  Separation  (Loss)  or  Soft 
Expiration  Term  of  Service  (Master) 
(Year/ Month/Date) 

Basic  Active  Service  Date  (Year/Month/Date) 
Expiration  Term  of  Service  (Year/Month) 
Date  of  Current  Paygrade  (Year/Month) 
Date  of  Latest  Enlistment  (Enlisted)/ 
Date  of  Entry  to  Officer  Ranks  (Officer) 
(Year/Month) 

Component 

Year  of  Active  Duty  Service 
Time  in  Grade 
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TABLE  1.  ACTIVE  DUTY  MILITARY  MASTER  AND  LOSS 
EDIT  FILE  FORMAT  (CONTINUED) 


Column(s) 


Description 


60 

61 

62 

63-64 

65-67 

68 

69-74 

75 

76-77 

78-84 

85-90 

91-95 

96-99 

100 

101-105 

106 

107 

108 

109 

110 

111-126 

127 

128 
129 

130-132 

133 

134-138 

139 

140 

141-145 

146 

147 

148 

149-150 


Character  of  Service  (Enlisted-Loss) 
Service  Category  (Off icer)/VRBM  (Enlisted) 
Flying  Status  (Officer)/Propay  (Enlisted) 
Reenlistment  Eligibility  (Enlisted)/ 
Flight  Pay  Status  (Officer)  * 

Pay  Entry  Base  Date  (Year/Month/Date) 
Score  Group  (Enlisted)  * 

Unit  Identification  Code  * 

Spanish  Surname  Flag 
Filler 

Duty  MOS/AQD  (Naval  Officer)  * 

Program  Element  Code  * 

Zip  Code  * 

Name  (First  Four  Positions) 

Gain/Loss  Code 

Home  of  Record  Zip  Code  * 

Highest  Year  of  Education 
Marital/Dependents  Status 
Test  Form 

AFQT  Percentile  (Original  MEPCOM) 

Mental  Category  (Original  MEPCOM) 
Aptitude  Area  Scores  * 

Service 
Prior  Service 
Waiver  Code 

Date  of  Entry  (Year/Month/Date) 

Term  of  Enlistment 

Enlistment  Option/Enlistment  Program* 
Bonus  Option 
Enlistment  Option 
Training  MOS  * 

AFQT  Percentile  (Original  Master) 

Mental  Category  (Original  Master) 

Renorm  Flag 
Filler 


Note:  The  (*)  denotes  that  the  data  element  is  coded  in  character 
format,  otherwise  in  binary  format. 
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with  updated  information  from  positions  five  to  fifty-four  of 
the  Master  and  Loss  Edit.  (See  program  entitled  EXTRACT  BDM 
in  the  appendix)  .  Cross-sectional  analysis  is  also  feasible 
because  quarterly  information  may  be  readily  accessed. 

Application  of  these  extraction  procedures  resulted  in 
the  combination  of  several  thousand  personnel  records.  Presented 
below  are  the  numbers  of  ships  and  personnel  for  the  ship  classes 
considered  in  the  study. 

TABLE  2.  SHIP  CLASSES  AND  NUMBER  OF  SHIPS  AND  PERSONNEL  ANALYZED 


NUMBER 

NUMBER 

SHIP  CLASSES/TYPES 

OF  SHIPS 

OF  PERSONNEL 

CG 

23 

32940 

CGN 

9 

16049 

DD963 

30 

22346 

DDG2 

24 

30374 

DDG37 

10 

14350 

FF 

59 

56392 

FFG 

38 

12612 

Quarterly  files  were  linked  together  by  Social  Security 

Number  (SSN)  for  each  individual  serving  on  any  of  the  given 

ships  resulting  in  a  2754  byte  record  for  each  individual. 

Although  an  individual  may  have  been  attached  to  two  or  more 

ships  during  the  27  quarters*  only  a  single  record  is  constructed 

The  current  information  on  individual  records 
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for  that  case. 


for  each  quarter  is  inserted  in  predetermined  sections  on  the 
individual's  records;  should  an  individual  not  have  been  attached 
to  one  of  the  ships  during  that  quarter,  zeros  were  inserted 
as  fillers  in  that  section  for  that  individual's  record.  (See 
program  MATCHMAG  BDM) .  The  Match/Merge  file  format  is  shown 
in  Table  3. 

An  illustration  of  the  file  merging  process  may  clarify 
these  conditions.  The  file  from  30  September  1976  is  matched 
with  the  file  from  31  December  1976.  All  records  from  the  first 
file  are  written  to  a  transaction  file  and,  where  matches  occur, 
the  30  September  1976  data  are  followed  by  the  31  December  1976 
data.  Should  an  individual  active  on  a  September  1976  ship 
not  be  attached  to  any  of  the  ships  in  December  1976,  then  zeros 
are  inserted  in  the  "Quarter  2"  section  of  that  record. 

If  a  another  individual  joined  the  cohort  in,  for  example, 
December  1976,  then  zeros  would  be  inserted  in  the  "Quarter 
1"  section  (where  September  1976  data  would  have  been  placed) 
and  the  December  1976  file  would  be  added  to  the  end  of  the 
combined  record.  This  combined  data  would  then  be  matched 
against  the  "Quarter  3"  (March  1977)  file.  All  records  from 
the  combined  data  would  then  be  written  into  a  new  file  and 
any  matches  from  the  March  1977  file  would  be  added  to  the  end 
of  this  record.  Should  a  match  with  the  March  1977  file  not 
be  found  (e.g.,  attrition  from  the  cohort),  then  zeros  would 
be  inserted  into  that  part  of  the  new  record.  For  instance, 
a  new  individual,  joining  in  March  1977,  would  be  added  to  the 
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TABLE  3.  MATCH/ MERGE  FILE  FORMAT 


Column (s) 

1-4 

5-9 

10 

11 

12 

13 

14 

15-30 

31 

32 

33 

34-36 

37 

38-42 


Record  length  =  2754 

Description 

Social  Security  Number 
Home  of  Record  Zip  Code  * 

Highest  Year  of  Education 
Marital/Dependents  Status 
Test  Form 

AFQT  Percentile  (Original  MEPCOM) 

Mental  Category  (Original  MEPCOM) 
Aptitude  Area  Scores  * 

Service 
Prior  Service 
Waiver  Code 

Date  of  Entry  (Year/Month/Date) 

Term  of  Enlistment 

Enlistment  Option/Enlistment  Program* 


43 

44 

45-49 

50 

51 

52 

53-54 


Bonus  Option 
Enlistment  Option 
Training  MOS  * 

AFQT  Percentile  (Original  Master) 
Mental  Category  (Original  Master) 
Renorm  Flag 
Filler 


- record  fields  to  which  quarterly  data  are  assigned - 


55-154 

Quarterly 

data 

for 

quarter 

ending 

7609 

155-254 

n 

If 

91 

91 

n 

7612 

255-354 

if 

91 

n 

91 

91 

7703 

355-454 

n 

91 

91 

91 

91 

7706 

455-554 

IT 

91 

91 

11 

n 

7709 

555-654 

It 

91 

91 

91 

91 

7712 

655-754 

If 

n 

91 

91 

n 

7803 

755-854 

ff 

91 

91 

91 

n 

7806 

855-954 

It 

91 

99 

n 

n 

7809 

955-1054 

91 

91 

91 

it 

91 

7812 

1055-1154 

n 

n 

91 

91 

91 

7903 

1155-1254 

91 

91 

ft 

91 

91 

7906 

1255-1354 

n 

91 

11 

91 

91 

7909 

1355-1454 

91 

n 

91 

91 

11 

7912 

1455-1554 

91 

91 

91 

91 

n 

8003 

1555-1654 

91 

91 

91 

91 

n 

8006 

1655-1754 

11 

91 

91 

91 

n 

8009 

1755-1854 

91 

91 

91 

91 

91 

8012 

1855-1954 

n 

91 

n 

91 

91 

8103 

1955-2054 

11 

91 

91 

91 

91 

8106 

2055-2154 

91 

91 

n 

n 

11 

8109 
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TABLE  3.  MATCH/MERGE  FILE  FORMAT  (CONTINUED) 


Column(s) 


2155-2254 

2255-2354 

2355-2454 

2455-2554 

2555-2654 

2655-2754 


55-58 

59-60 

61-62 

63-64 

65 

66 

67 

68 

69-71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83-84 

85 

86 
87 

88-94 

95-97 

98 

99-101 


102-104 

105-106 

107-108 


Description 


Quarterly  data  for  quarter  ending  8112 

n  "  "  "  "  8203 

"  "  "  "  "  8206 

"  "  "  "  "  8209 

"  "  "  "  "  8212 

»  "  "  "  8303 

List  of  Data  Elements  Entered  by  Quarter 
(Example:  Positions  used  for  QTR  7609) 

Social  Security  Number 

Total  Active  Federal  Military  Service 

DoD  Primary  Occupational  Group 

DoD  Duty  Occupational  Group 

Highest  Year  of  Education 

AFQT  Percentile  (Enlisted) 

Paygrade 

Home  of  Record:  State  or  County 
Date  of  Birth  (Year/Month/Date) 

Service 

Race 

Source  of  Entry  (Officer)  * 

Filler 

Marital  Status 

Number  of  Dependents 

File  Date 

Ethnic  Group 

Race  Ethnic 

Sex 

Education  *  Mental  Category  (ENL) 

Years  of  Commissioned  Service  (OFF) 

DoD  Secondary  Occupational  Code 
Mental  Category  (Enlisted) 

Age  at  Entry 

Age  at  Separation  (Loss)/Current  Age 

(Master) 

Primary  MOS/Designator  (Naval  Officer) 
Separation  Program  Designator  (Loss)* 
Interservice  Separation  Code  (Loss) 

Date  of  Separation  (Loss)/Soft  ETS 

Date  (Master) 

(Year/Month/Date) 

Basic  Active  Service  Date  (Year/Month/ 

Date) 

Expiration  Term  of  Service  Date 
(Year/Month) 

Date  of  Current  Paygrade  (Year/Month) 
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TABLE  3.  MATCH/MERGE  FILE  FORMAT  (CONTINUED) 


Column (s) 


Description 


109-110 


111 

112 

113 

114 

115 

116 

117-118 

119-121 

122 

123-128 

129 

130-131 

132-138 

139-144 

145-149 

150-153 

154 


Date  of  Latest  Enlistment  (Enlisted)/ 
Date  of  Entry  to  Officer  Ranks  (Officer) 
(Year/Month) 

Component 

Year  of  Active  Duty  Service 
Time  in  Grade 

Character  of  Service  (Enlisted-Loss) 
Service  Category  (Of f  icer) /VRBM  (Enlisted) 
Flying  Status  (Of f icer) /Propay  (Enlisted) 
Reenlistment  Eligibility  (Enlisted)/ 
Flight  Pay  Status  (Officer)  * 

Pay  Entry  Base  Date  (Year/Month/Date) 
Score  Group  (Enlisted)  * 

Unit  Identification  Code  * 

Spanish  Surname  Flag 
Filler 

Duty  MOS/AQD  (Naval  Officer)  * 

Program  Element  Code  * 

Zip  Code  * 

Name  (First  Four  Positions) 

Gain/Loss  Code 


Note:  Positions  55  to  2754  contain  the  100  bytes  of  information 
shown  in  columns  55  to  154,  which  is  updated  and  entered 
in  sequence  for  each  quarter.  The  (*)  denotes  that  the 
data  element  is  coded  in  character  format,  otherwise  in 
binary  format. 
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combined  file  by  inserting  zeros  where  September  and  December 
1976  data  would  have  been  located  and  then  the  March  data  would 
be  added  at  the  end  of  the  zeros.  At  another  stage  of  file 
preparation,  these  "filler  zeros"  were  recoded  as  missing  data. 
The  succeeding  quarterly  files  were  interatively  matched  and 
joined  in  this  manner. 

III.  FILE  EXTRACTIONS 


The  constructed  record  can  be  used  to  determine  which  personnel 
are  attached  to  which,  if  any,  of  the  given  ships  for  any  of 
the  27  quarters  under  consideration.  Accession  information, 
along  with  the  Social  Security  Number  obtained  the  first  time 
each  individual  record  is  observed,  were  inserted  at  the  beginning 
of  the  constructed  record. 

Because  the  concatenation  yielded  a  relatively  extended 

record  length  of  2754  bytes,  two  reduction  measures  were  adopted 

to  form  a  Working  File  depicted  in  Table  4.  In  the  first  stage, 

a  1400  byte  record  was  extracted,  containing  accession  information, 

e.g.,  ASVAB  subscale  scores,  date  of  entry,  marital  status, 

and  mental  group  category.  Also  included  were  quarterly  updates 

such  as  Naval  Enlistment  Classification  code  (NEC)  ,  paygrade, 

years  of  active  duty,  and  time  in  grade  (See  EXTRACT  NPS) .  The 

second  stage  involved  extraction  of  only  those  elements  deemed 

necessary  for  the  analysis.  For  each  case,  these  variables 

included:  (a)  Armed  Forces  Qualifying  Test  (AFQT)  score;  (b) 

high-school  degree  status;  (c)  age  at  accession;  (d)  present 
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TABLE  4.  WORKING  FILE  FORMAT 


Column(s) 


Description 


I- 4 

5 

6 

7 

8 

9 

10 

II- 26 

27 

28 
29 

30-32 

33 

34-38 

39 

40 

41-45 

46 

47 

48 

49-50 


Social  Security  Number 
Filler 

Highest  Year  of  Education 
Marital/Dependents  Status 
Test  Form 

AFQT  Percentile  (Original  MEPCOM) 

Mental  Category  (Original  MEPCOM) 

Aptitude  Area  Scores 

Service 

Prior  Service 

Waiver  Code 

Date  of  Entry  (Year/Month/Date)  * 

Term  of  Enlistment 

Enlistment  Option/Enlistment  Program* 
Bonus  Option 
Enlistment  Option 
Training  MOS 

AFQT  Percentile  (Original  Master) 
Mental  Category  (Original  Master) 
Renorm  Flag 
Filler 


- record  fields  to  which  quarterly  data  are  assigned - 


51-100 

101-150 

151-200 

201-250 

251-300 

310-350 

351-400 

401-450 

451-500 

501-550 

551-600 

601-650 

651-700 

701-750 

751-800 

801-850 

851-900 

901-950 

951-1000 

1001-1050 

1051-1100 

1101-1150 

1151-1200 


Quarterly 

data 

for 

quarter 

ending 

7609 

It 

11 

fl 

It 

tt 

7612 

n 

It 

tt 

ft 

n 

7703 

n 

ti 

n 

II 

rt 

7706 

n 

it 

n 

11 

n 

7709 

n 

tt 

n 

n 

it 

7712 

n 

tt 

n 

n 

n 

7803 

n 

n 

it 

ti 

it 

7806 

rt 

it 

n 

rt 

n 

7809 

n 

it 

rt 

n 

ti 

7812 

n 

it 

n 

tt 

n 

7903 

n 

rt 

it 

rt 

ti 

7906 

it 

n 

it 

n 

n 

7909 

n 

ti 

n 

n 

tt 

7912 

ft 

n 

tt 

n 

n 

8003 

n 

n 

n 

it 

tt 

8006 

n 

it 

if 

n 

n 

8009 

tt 

n 

tt 

n 

n 

8012 

n 

n 

n 

n 

it 

8103 

vt 

n 

n 

n 

tt 

8106 

it 

n 

ti 

it 

n 

8109 

it 

n 

it 

rt 

n 

8112 

91 

ft 

ti 

it 

n 

8203 

16 


TABLE  4.  WORKING  FILE  FORMAT  (CONTINUED) 


Column  (s). 


Description 


1201-1250 

1251-1300 

1301-1350 

1351-1400 


51-52 

53 

54 

55 

56-58 

59 

60 
61 
62 

63 

64 

65-67 

68-71 

72-74 

75-76 

77-78 

79 

80 
81 
82 

83 

84 

85-87 

88-90 

91-94 

95-100 


n  n  n  n  n  8206 

"  "  "  "  "  8209 

n  "  "  "  "  8212 

"  "  n  n  n  3303 

List  of  Data  Elements  Entered  by  Quarter 
(Example:  Positions  used  for  QTR  7609) 

Expiration  Term  of  Service  (Year/Month) 
Highest  Year  of  Education 
AFQT  Percentile 
Paygrade 

Date  of  Birth  (Year/Month/Date) 

Marital  Status 
Number  of  Dependents 
Sex 

Mental  Category  (Enlisted) 

Age  at  Entry 
Age  at  File  Date 
Rate  * 

Naval  Enlistment  Classification  (NEC)* 
Basic  Active  Service  Date 
Date  Of  Paygrade  (Year/Month) 

Date  of  Latest  Enlistment  (Year/Month) 
Component 

Year  of  Active  Duty 

Time  in  Grade 

VRBM/SRBM 

Propay 

Score  Group 

Last  three  numbers  of  Unit  Identification 
Code  (UIC)  * 

Duty  Rate  * 

Duty  NEC  * 

Program  Element  Code  * 


Note:  Positions  51  to  1400  contain  the  50  bytes  of  information 

shwon  in  columns  51-100,  which  is  updated  and  entered 
in  sequence  for  each  quarter.  The  (*)  denotes  that  the 
data  element  is  coded  in  character  format,  otherwise  in 
binary  format. 
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age;  (e)  paygrade;  (f)  years  of  active  duty;  (g)  number  of  months 
in  current  paygrade;  and  (h)  a  logical  condition  (labelled 
"returner")  indicating  service  in  that  rating  aboard  that  ship 
in  the  prior  quarter.  Aggregation  by  rating  on  these  variables 
was  the  next  analytic  stage.  This  file  was  made  available  to 
Dr.  W.E.  McGarvey  at  the  Naval  Postgraduate  School,  for  his 
analysis. 

IV.  DATA  AGGREGATION  PROCEDURES 

Utilizing  Statistical  Analysis  System  (SAS)  software, 
aggregation  was  accomplished  by: 

1.  selecting  only  those  individuals  who  served  in  a 
given  rating  during  at  least  one  of  the  27  quarters; 

2.  recoding  "filler  zeros"  as  missing  data; 

3.  for  each  quarter,  and  for  each  ship  with  any  active 
personnel  aboard  in  that  quarter,  aggregating  across 
individuals  on  the  selected  attributes  associated 
with  that  rating  (high-school  degrees,  "returners", 
AFQT  scores,  entry  ages,  present  ages,  paygrades, 
years  of  active  duty,  and  months  in  current  paygrades) 
and  computing  central  tendency  measures  for  that  rating; 

4.  merging  by  ship  and  quarter  the  aggregated  measures 
for  each  rating  within  ship  and  within  quarter,  and 
writing  a  new  file;  and 

merging  aggregated  rating  data  for  different  ratings 

within  each  ship  and  quarter. 
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5. 


Thus,  the  aggregate  characteristics  of  all  ratings  within  a 
given  ship  (or  ships)  within  a  given  quarter  (or  quarters)  can 
be  examined,  and  selected  ratings  may  also  be  examined.  Regression 
models  were  used  to  examine  the  collective  data  for  a  given 
department  across  several  ships  and  certain  ratings,  across 
several  ships,  and  across  three  classes  of  ships. 

V.  ADDITIONAL  DATA  BASE  DEVELOPMENT 

A  second  data  base  was  generated  which  included,  by  rating, 
information  about  each  of  the  ship's  billets.  Such  billet  data 
included:  (a)  number  authorized;  (b)  number  assigned;  and  (c) 
the  fill-ratio.  The  fill-ratio  was  computed  as  the  number  of 
personnel  on  board  divided  by  the  number  required.  The  number 
required  for  each  ship,  by  department  and  rating,  were  provided 
by  OPNAV-914  from  the  Ship  Manning  Document  ( SMD)  files. 

A  third  data  base  was  composed  of  statistical  summary  reports 
provided  by  the  Navy  Ships  Parts  Control  Center  (SPCC), 
Mechanicsburg ,  Pa.  The  data  included  information  provided  by 
the  individual  units  through  the  Consolidated  Casualty  Reporting 
System  (CASREP)  . 

The  casualty  reporting  (CASREP)  system  provides  a  timely 

method  for  reporting  equipment  failures  and  the  effect  of  these 

failures  on  the  capability  of  the  reporting  units.  The  CASREP 

system  is  designed  to  assist  in  identifying  problem  equipment, 

supply  support  deficiencies,  maintenance  difficulties,  etc., 

which  tend  to  reduce  the  combat  readiness  of  the  Navy.  Reported 

19 


by  the  individual  ships,  the  CASREPs  are  compiled  by  SPCC. 

Eight  measures  were  extracted  from  these  CASREP  data,  and 
three  others  were  derived  from  them.  The  three  data  files  were 
then  merged  into  one  file  that  contained  for  each  quarter  the 
personnel  characteristics,  fill-ratios  and  CASREP  data  for  each 
ship. 

The  different  files  for  each  ship  class  were  recorded  (see 
program  EXRECODE  CNA)  and  forwarded  to  Center  for  Naval  Analysis 
(CNA)  for  additional  analysis.  The  recoding  of  binary  to  character 
data  was  necessary  due  to  the  differences  in  the  two  computer 
systems.  The  resulting  file  format  is  given  in  Table  5. 

Additional  tabulations  provided  information  about  personnel 
authorization  and  assignments  for  specific  ratings  by  ship  class 
and  UIC.  A  PL-1  program  (entitled  BDM  SHIPS  in  the  appendix) 
was  used  for  this  analysis.  Table  6  exemplifies  the  output 
produced  for  each  quarter. 
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TABLE  5.  CENTER  FOR  NAVAL  ANALYSIS  (CNA)  FILE  FORMAT 


Column (s) 


Description 


1-9 

10-11 

12-13 

14-15 

16-17 

18 

19-66 

67-68 

69-70 

71-72 

73-78 

79-80 

81-85 

86-87 

88-89 

90-94 

95-96 

97 

98-100 

101-104 

105-106 

107-108 

109-110 

111-116 

117-118 

119-120 

121 

122-123 

124-125 

126-127 

128-130 

131-134 

135-140 

141-144 

145-148 

149 

150-151 

152-153 

154-155 

156-157 

158-159 

160-162 

163-165 

166-169 

170-175 


Social  Security  Number 
Highest  Year  of  Education 
Marital/Dependents  Status 
Test  Form 

AFQT  (Original  MEPCOM) 

Mental  Category  (Original  MEPCOM) 

Aptitude  Area  Scores  (expanded  to  three 

positions  for  each  of  the  16  areas) 

Service 

Prior  Service 

Waiver  Code 

Date  of  Entry  (Year/Month/Date) 

Term  of  Enlistment 
Enlistment  Option  Program 
Bonus  Option 
Enlistment  Option 
Training  MOS 

AGQT  Percentile  (Original  Master) 

Mental  Category  (Original  Master) 

Renorm  Flag 

Expiration  Term  of  Serive  Date  ( Year/Month) 
Highest  Year  of  Education 
AFQT  Percentile 
Paygrade 

Date  of  Birth  (Year/Month/Date) 

Marital  Status 

Dependents 

Sex 

AFQT  Group 
Age  at  Entry 
Present  Age 
Rate 

Naval  Enlistment  Classification  (NEC) 
Base  Active  Service  Date  (Year/ Month/Date) 
Date  of  Paygrade  (Year/Month) 

Date  of  Latest  Enlistment  (Year/Month) 

Regular/Reserve 

Year  of  Active  Duty 

Time  in  Grade 

VRBM 

Propay 

Score  Group 

Last  Three  Number  of  Unit  Identification 
Code  (UIC) 

Duty  Rate 
Duty  NEC 

Program  Element  Code 
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TABLE  5.  CENTER  FOR  NAVAL  ANALYSIS  (CNA)  FILE  FORMAT  (CONTINUED) 


Column  (sj 


Description 


- record  fields  to  which  quarterly  data  are  assigned - 


101-175 

176-250 

251-325 

326-400 

401-475 

476-550 

551-625 

626-700 

701-775 

776-850 

851-925 

926-1000 

1001-1075 

1076-1150 

1151-1225 

1226-1300 

1301-1375 

1376-1450 

1451-1525 

1526-1600 

1601-1675 

1676-1750 

1751-1825 

1826-1900 

1901-1975 

1976-2150 

2051-2125 


Quarterly 

data 

for 

quarter 

ending 

7609 

If 

n 

n 

R 

R 

7612 

n 

n 

if 

R 

R 

7703 

n 

n 

n 

n 

R 

7706 

n 

ft 

w 

R 

R 

7709 

if 

n 

R 

R 

R 

7712 

n 

R 

If 

R 

R 

7803 

ti 

It 

If 

R 

R 

7806 

n 

n 

R 

R 

R 

7809 

n 

R 

R 

R 

R 

7812 

n 

r 

R 

R 

R 

7903 

n 

n 

R 

R 

R 

7906 

it 

it 

n 

R 

R 

7909 

n 

n 

R 

R 

R 

7912 

t« 

n 

R 

R 

R 

8003 

w 

n 

R 

R 

R 

8006 

n 

n 

R 

R 

R 

8009 

n 

n 

R 

R 

R 

8012 

n 

it 

n 

R 

R 

8103 

ti 

it 

R 

R 

R 

8106 

n 

n 

R 

R 

R 

8109 

n 

n 

R 

R 

R 

8112 

if 

n 

R 

R 

R 

8203 

ft 

n 

R 

R 

R 

8206 

n 

n 

R 

R 

R 

8209 

n 

ii 

n 

R 

R 

8212 

n 

n 

n 

n 

R 

8303 

Note:  All  data  elements  are  coded  in  character  format.  The 
quarterly  information  in  positions  101  to  2125  is  the 
same  as  that  contained  in  positions  51  to  1400  in  Table 
4.  The  data  elements  shown  in  positions  101-175  are  entered 
for  each  quarter  (positions  101-175  are  entered  for  the 
quarter  ending  7609). 
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TOTAL  121  95  78.5  121  105  86.8  117  103  88.0  118  100  84.7  116  110  94.8  119  117  98.3 


TABLE  6.  AUTHORIZED  AM)  ASSIGNED  PERSONNEL  BY  UNIT 
IDENTIFICATION  CODE  (UIC],  DATE  AND  RATING 
(CONTINUED] 
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TOTAL  117  1  00  85.5  125  1  08  86.4  119  1  07  89.9  118  1  02  86.4  119  1  03  86.6  122  1  05  86.1 


TABLE  6.  AUTHORIZED  AM)  ASSIGNED  PERSONNEL  BY  UNIT 
IDENTIFICATION  CGOE  (UIC),  DATE  AND  RATING 
(CONTINUED) 
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TOTAL  121  122  100. B  115  114  99.1  120  105  B7.5  117  89  76.1  115  110  95.7  2730  2416  88.5 


APPENDIX:  SOFTWARE  AND  PROGRAM  DOCUMENTATION 
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EXTRACT  BOR 


14  NOV  1984  It  39  PM 


//MUtUB  303  JOB  < 3420 . 3F 733 3} » KI JG *C LASS  =  K 
//♦MAIN  ORG=RMT01 • PP OC  =  20 * R I NGC FK=NO 
//♦FORMAT  PR  ,DDN» ME=.DEST=RMT01 
//  EXEC  MDACPROC.PPOG=EXTRACT,S!ZE=500K 
//OATA  DO  UN IT  =  34 00 - 5,DISP=< OLD  iKEEP  )  , 

//  DSN=MASDD.EDrEN.P8303,VOL=SER=(K05976,KO 59771 
//OUTT  DD  UN IT=33 30 V*DI$P= <NE W, CATL6,DELETE > « 

//  DC3=(LRECL=150,BLKSIZE=1290  C»  RE  CFM=F  B  )  , 

//  DSN  =  MRDC.VHKXXX.FFG.P8  30  3.M  IVGP=CM0C40, 

//  SPACE=(CYL, (4 ,2 > »RLSE> 

//OECINtDO  g  RANGE  ’04692'  ’04695*  I  70,5  RAN6E  *04698’  ’04699*  | 

70,5  RANGE  ’20964’  ’20969’  7C,5  RANGE  *2C972'  ’20979’ 

70,5  RANGE  *21032’  *21034*  7C,5  RANGE  *21052*  *21059’ 

TO ! i  range  ’21103*  *21110’  7t,5  RANGE  ’21197’  *21201’ 

70»5  RANGE  *21231*  *21236*  7(*5  RANGE  *21350*  *21352*  7G|5=*21028f 

/* 


//SYSIN  00  * 

EX  TR  ACT  =  *  TRUE  * |L I  ST  =  *  NONE  *  ; 
N-  *  FI  Lr  *  P  =  1  U  =  150; 

// 
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M1CHMM  BOH 


(•E?E?*;«f?!Ssrs,:',0ESTiR"TO 

//DWHTCH.SYSIN  01  * 

DCL  N  =  »M  SSN*  P=1  L  =  4  T  =  4? 

OCL  N=»H-R£CORO*  P=5  L=2650  t=f? 
OCL  N=»MT  SSN  •  P  =  1  |_  =  4  T  =  4? 

OCL  n=*ma;:m4Ster»  p=i  l=ioo  t=6  ; 
DCL  N=*MA_ASVAB»  P=101  L=50  T=  (? 

P=1  L  =  4  T  =  4? 

P  =  ^  L  =  50  T  =61 


DCL  N  =  »P  SSN* 
DCL  N= • P“A S V AB* 


OCL  N= ' P”A  SV  MAS  *  P  =  5  L  =  2650_  T  =6  ? 


OCL  N  =  *  P~OLDREC • 
DCL  N  =  »  P~MASTER  * 


P  =  55 


L  =2  60  0  1  =  61 

key=.Ssn., 

ON  (LT,NA>  DO? 

M  SSN  TO  P  SSN  ? 

N  RECORD  TO  P  ASVMAS? 

L^U  (i 0  0 »  TO  P_MASTER? 

WRITE  <P)  FROM  <P>; 

N0M*1  TO  NO  H( 0  tA i A  M 
tNui 

ON  (NA.LT)  OOJ 
MA_SSN  TO  P  SSN; 

N*  aswab  to-p  ASVAB1 
LOB  f 2600 )  TO ~P  OLOREC; 

JJ A  fj AS  TER  TO  P  WASTER? 

URTTE  <P>  FROM  (P>; 

end;*'1  T0  n-U(0*'*a>? 

ON  (E QtEQ)  005 
M  SSN  TO  P  SSN? 

N  RECORD  TO  P  ASVMAS? 
fJJ-HASI'ER  TO  P  MASTER? 

WRITE  IP)  FROM~(P)? 

END ? CH*  *  T°  MATCH<°»AtA)? 

//PLI.SYSPRINT  DO  DUMMY 
//GDSN=FF6^“^-  ?.2:5j2I?P=‘9*rP  .KEEP), 


lSN= FFS.C9212, WOL=SER=K07265 
•HA  DD  UNIT  =  3330  V,0 1  SP=SHR, 


//GO _ _ ,„JU 

/^gSN  =  MROC.  WHK  XX  X .FF6  .PB3  03 
»»®2s?  DD  UN  I T= 34  00 -5 »DI SP  =  C NEW  .KEE P >  • 
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EX  IK  ACT  NFS 


//MW*»D963  JOB  < 3 420 » 3F733 3 > t KI fG , CLA SS =F 

//‘MAIN  ORG=RHTOl  i PR0C  =  2 0 « R I NGC FK =NO 

//•FORMAT  PR,DDNAME=,DEST=RMT01 

//  EXEC  MOACPROCfPROG=EXTRACT,SlZE=1024K 

//DATA  DO  UNIT  =  34  00-5.D ISP=OLO» CSN  =  D09 63.C84 0 3  * VOL=SEI 

//OUTT  00  DISP= (MEU,KEEP)*UNIT=:40G-5. 

//  DCB  =  <LRCCL  =  2150,BLKSIZE  =  215C0,RE-'"- 
//  DSN  =  FIRST. EXTRACT  tVOL=SER=K (5711 
//OECIN  OD  * 


G-5. 
RECFM=FB> , 
»  1  1 


r  /  i/jii-r  io  j  i  />  i 

//OECIN  OD  • 


// SYSIN  00  * 

EXTRACT=*TRUE»»LIST='NONE»  ? 


N=»SSN* 

Pr  1 

U  =  4 

N=«NA  • 

P-  8 

w=ii 

N=» ASVA8* 

P=  10 

U  =  4  5 

n=*ets« 

Pr  10  5 

u=2; 

N=»P11P13» 

P=65 

W  =  3i 

N= 1 D08 • 

P=69 

W  r  3  5 

N  =  *  MS0EpS f 

P=  76 

w=2 ; 

N=»SE*f 

r  =8i 

U  =  1 ; 

N=  *  P  3 IP  4  0  * 

P-85 

UrlOi 

N= «  B A  $0  * 

P=  10  2 

W  =  3j 
u=7i 

N=  #  p  5  3P  59  • 

P=10  7 

N  = • P6 IP  62  • 

P=1  15 

W=  2  * 

N=  •  UI  C  H 1  $  • 

P=  122 

Ur  17? 

N- 1 E  T S • 

P=  2 0  5 

U  =  2{ 

U  =  3{ 

N  =  *  P 1  IP  1 3 * 

P=  165 

N= «008  • 

Pr  169 

u=3; 

N= ' MSDEPS* 

P=  1  76 

Wr  2  ; 

N= #  $E  X  • 

P-  181 

"Ml 

N=*P31P40» 

P=  185 

N= • B A  SD  • 

Pr  202 

w  =  3; 

N=*P53P59* 

P=207 

W  r  7  ? 

Nr • P6 1 P  62f 

P  =  2 1  5 

W  =  2 » 

N= f UI C  MOS  * 

P=  22  2 

W  =  l  7? 

N= • E  TS * 

Pr  305 

u  =  2; 

N=»P11P13« 

Pr  265 

U  =  3  » 

N=«00B  * 

Pr  269 

W  =  3  $ 

U  =  2  • 

N=«MS0EPSf 

P=  2  7  6 

N=  #  SE  X • 

Pr  281 

W=l? 

N  =  •  P  3  IP  4  0  f 

Pr  285 

w=io; 

N= • B A  SO  • 

Pr  302 

W  =  3  i 

N  =  f  P53P59f 

P  r  3  0  7 

U=  7  ? 

N=  •P61P62' 

P  r  31  5 

u  =  2 ; 

N=  *  U I  C  H  OS  * 

Pr  32  2 

U  =  1  7  i 

N= • l T $  • 

Pr  405 

W  r  2 » 

N=  *  P 1 IP  1 3 f 

Pr  365 

u= 3 ; 

N= • OOB  f 

Pr  369 

u=3; 

N  =  f  MSOE  p  S  * 

Pr  376 

u=2; 

N=«SEX* 

Pr  381 

U  =  1  } 

N=*P31P40* 

pr  38  5 

w  =  io; 

N= *8AS0 * 

Pr  402 

U=3I 

N  = #P 5  3P  59  # 

Pr  407 

W=  7  ? 

N=*P61P62f 

P=  41  5 

u=  2 ; 

N=*UICM03f 

Pr  422 

U  r  1  7  ? 

N=*  E  TS  f 

Pr  5  0  5 

U  =  2  J 

N  =  • P 1 IP  1 3 • 

Pr  465 

U=3? 

N  =  #  DOB  1 

Pr  4  6 9 

U  =  3? 

N  =  • HS  DEPS  * 

Pr  476 

U  r  2  ? 

N=f  SE  X  # 

Pr  481 

w=i; 

N=  *  P  31P  4  0 1 

P=  48  5 

U  =  1Q  ? 

N=  fB  A  SO  • 

Pr  50  2 

U  =  35 

N=  *  P53 P59 * 

P=  50  7 

u=7 ; 

N=*  P61P62 • 

Pr  515 

w=2? 

N  =  *  UI CMOS  * 

Pr  5  2  2 

W=  1  7{ 

N=  f ETS  • 

pr  605 

U  =  2  ? 

N=*  P 1  IP  1 3* 

Pr  565 

U=3S 

N=* DOB  • 

P  =  569 

W  =  3  ? 

N= 1 MSOEPS* 

P=  5  76 

w=2  ? 

N= • SE  X • 

P  r  5  8  1 

u=n 

N=*P31P40» 

Pr585 

u=io; 

N=  *  BA  SO  * 

Pr  60  2 

U  =  3? 

N  =  *  P53P  59f 

Pr  60  7 

U=7? 

N= •P61P621 

Pr  615 

U=  2; 

N=  *  UI CMOS* 

P=  62  2 

U  =  1  7J 

M=*ETS» 

P=  70  5 

U=2I 

*  PI IP  13  * 

P  =  665 

w=3; 

0  04  8  7T 
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EX  1 A ACT  UPS 


N= • OOB • 

N  =  *  MSDEPS • 

N=*$EX» 

N- *P31P4  0* 

N-*  B A  SO  * 

N= 1 P5  3P  59 • 

N=*c>61P62» 

N=  •UICMOS* 

N=«lTS» 

N=«»11P13* 

N=  *OOB  * 

N  =  *  HSOEPS • 

N=*SEX» 

N=*P31P40« 

N= • B A  SO  * 

N=  #P  5  3P  59 • 

N=*P61P62# 

N=*  UI CMOS  * 

N=*ETS* 

N=#P11P13» 

N=  * 008  * 

N  = • M  SOE  PS  * 

n=*sex* 

N=»P31P40* 

N=  f  8A  SO  • 

N  = • P53P  59 • 

N=»P6l P62* 

N=*UI CMOS # 

n=»ets» 

N^PilP  13f 
N=*  008  • 

N  =  *  MSDEPS  * 

N= • S£  X  • 

N=*P3lP4a* 

N- • B A  $0  • 

*  P5 3P  59 • 

N- #P  61P  62* 

N  =  #  U I  CMOS • 

N= • ETS  * 

N= • PI  IP  13 # 

N=*Q08* 

N  =  «  HSOEPS • 

N=#SEX* 

N  =  *  P31P4  0  * 

N=»BASO  * 

N=«P53P59» 

• P6 IP  62 • 

N- • HI  CMOS 1 
N= • E  T$  * 

N-  * P 1  IP  1 3* 

N= • 0  08  * 

N=«MSDEPS* 

N=«SEX« 

N= • P  31P  4  G f 
N^  *  8  A  SO  * 

N=«P53P59* 

N= • P  61P  62 • 

N=  1 UI CM  OS  f 
N=»R£ST« 

/* 

//EXEC  MOACPROCt  PROG=EXTRACTfS 1ZE= 10  24K 
//DATA  00  UNIT  = 34 00-5* DI SP =CLO ? CSN=FIRST .EXTRAC 
//OUTT  00  OI$P=<9EU,KEEP>.UNIT=M0a-5, 

//  DC3=(LRECL=1650fBLKSI2E=165CQtREC?M=FB> • 
''oe.OSN  =  SEc3ND.EXtrXct,VOL  =  SErIk05712  FB>* 

|  1«1-=»1* 

//SYS IN  00  • 

EXTRACT=»TRI 
N=*FI RST  • 

n=*h:ts» 

H=*P11P13» 

N=*OOB» 

H=*HSDEPS» 

N=»SEX* 

M=»P31P40* 

N=»BASD  • 


P=  669 

U  =  3| 

P  =  676 

u=2 ? 

P-681 

w=i ; 

P=  68  5 

W  =  105 

P=  7  0  2 

w=3; 

P  =  7  0  7 

W=7  j 

P=715 

w=ai 

P=  722 

w=i7i 

P=  80  5 

U  =  2? 

P=  765 

w=3; 

P=  769 

w=3; 

P-7  76 

U  =  2  5 

P=781 

U=l] 

P=  785 

U=101 

P=  80  2 

U  =  3? 

P=807 

W  -  7  \ 

p- 8i ; 

u=2; 

P  =  822 

U  =  17J 

P  -  9  0  5 

W  -  2  » 

P  =  865 

Ur  3  1 

P=869 

u=3; 

P=876 

w=2; 

P=681 

U  =  1  J 

P=  885 

U=10| 

P=902 

u  =  3; 

Pr  90  7 

w=7; 

P=915 

W-2  i 

P~  922 

u=  i  7 ; 

P=  10  0  5 

u=  2; 

P=  965 

Ur3I 

P=  969 

W  =  3  S 

P-97  6 

W  =  2* 

P-981 

w=i; 

P=  985 

U=10 

P= 10  0  2 

u  =  3; 

P= 10  07 

P= 10  15 

w=  2  5 

P=  1022 

W-  1 7 

P=1105 

w= 2; 

P= 10  65 

u-3; 

P=1069 

W-  3 } 

1076 

w  =  2; 

P= 1081 

u=i: 

P= 10  85 

u=ii 

P= 1 1 0  7  U=7{ 

P=  1 1  1 5  U=2, 
P-1122  U-17  i 
P= 1 2  0  5  U  =  2t 
P= 11 65  u=3; 

P= 1 1 69  W=35 
P=1176  U -2! 

P= 1 1 8 1  U= 1 i 
P= 1185  U=10? 

P= 120  2  M  =  3! 
P=1207  U=7 J 
P= 121 5  U=25 
P= 1222  U=17i 
P=1255  U=15005 


LI ST=f 

NONE  *  1 

P=1 

y=650 

P=701 

u=2? 

P=  661 

W  =  3  S 

P  =  665 

W  =  3 1 

P=672 

u=2; 

P=  6  7  7 

W  =  lt 

P=  681 

y=:10  { 

P=  698 

W=  3  * 
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VOL=SER=K 05711 


EX  TRACT  UPS 


N=  * P53P  59 • 

P~  70  3  Vl  =  7? 

• P6 IP  62 • 

P=711  U  -  2  5 

N=*UI CMOS* 

P=718  W  =  1 7 ; 

n=«ets* 

P  =  80  1  U  =  2? 

N=*P 11P13* 

P=  761  W=3? 

N  =  * DOB  * 

P=  765  W  =  3J 

N  =  • HSDE  PS • 

P- 772  U=2i 

N=*SEX* 

P=  7  7  7  u=n 

N=»  P31P40* 

P=781  w=io; 

N= • BA SD  # 

Pr?98  U  =  3  * 

N=  •  °  5  3P  5  9  * 

P=  60  3  W  =  7J 

N=*P61P62* 

P=811  U=2J 

N=  •  UI  C  M  OS  * 

P=  81  9  W=17i 

N=*ETS» 

P  =  90 1  U-2\ 

N=  *  PI 1 P 1 3 ■ 

P=86l  W=3J 

N= • OOB * 

P=  865  U-3  5 

N=*MSDEPS* 

P=872  U-2; 

N='S£X* 

c  =8  7  7  U=15 

N=*P31PAQ* 

P  =  8  8  1  U=105 

N=*  BAS')  * 

P=  898  W  =  3 ; 

N-*P53P59* 

p=903  U  =  7  5 

N- *  P6 IP  62* 

P-911  U  =  2i 

N=*UICM0S* 

P=  9 1 8  U=175 

N=*ET$* 

P=1001  U-2J 

N  =  *  PI IP  1 3  * 

P  =  9  £  1  W  =  3; 

N- *  0  09  • 

P=  9  65  W  =  3; 

N-* HSOEPS* 

P  =  972  U-2  * 

N=*SrX* 

P  =  9  7  7  U  -  1 ; 

N=*P31P40* 

P=981  W=10S 

N=*8ASD  • 

P=  99  8  W  =  3; 

N=*P53P59* 

P=in03  U  =  7{ 

N=»P61P62* 

p=ion  w= 2 ; 

N- *UI CM  0$ • 

P-1018  U=  1 7  ? 

N=*ETS* 

p-iioi  u=2; 

N=*PHP13* 

p=1061  u=35 

N=*OOB* 

P= 10  65  U=3i 

N=  * MSOEPS  * 

P-  10  72  u  =  25 

N=*$EX* 

P=1077  Usi; 

N-*P31P43* 

P=1081  W- 10  5 

N=*BASD  * 

P  = 1C  98  W  =  3J 

N- • P5  3P  59 1 

P-1103  U=  7  5 

N- *  P6 1 P  62  * 

p=mi  u=2; 

N=*UlCHOS* 

P  -  1118  W= 1 7  5 

N=*ETS* 

P=1201  U=2J 

N=*P11P13* 

P=1161  U=3; 

N=  •  0  09  * 

p= 1 1 6 5  U=3» 

N=  *  HSOEPS  * 

P=  1 1 72  W  =  2; 

N  =  *S  EX* 

P= 1177  U=15 

N=*P21P40* 

p=iiei  w=io; 

N  =  *  B A  SO  • 

P-1198  W=3; 

*=*P53P59* 

P=  1 20  3  U  =  75 

N- *  P6 1 P  62  * 

P= 1 21  1  U=2? 

N=  *  UI CM  OS  * 

P- 1218  W=17; 

N=*ETS* 

P= 1 30 1  U=2S 

N-  *  P  1 13  1  3* 

P-  1261  W  =  3« 

N=  *009  * 

p  =  1 265  u=3; 

N- *  MSOEPS • 

p  =  1272  u=2; 

N=*SEX* 

P=1277  u=i; 

N=  * P31P40* 

P  =  12  8 1  U=10 ; 

N  =  *  BA  SO  * 

P=1298  W  =  3l 

N=»P53P59* 

P -  13  0  3  W=7* 

N=  *  P  61 P  62  * 

p= 1311  y=2; 

N=*UICM0S* 

p- 1318  w=i7; 

N=  *  E  TS * 

P= 1401  W=2? 

N= • P 1 IP  1 3 • 

P  = 1361  W  =  35 

N=  *  008  * 

p  =  1365  u=3; 

N  =  *  MS  DEPS  * 

P=  13  72  U=2? 

N=*SEX* 

P= 13  77  W  =  l* 

N= • P  31P  4  0* 

p= i 381  w=io; 

N=  •  8  A  SO  • 

p=  1398  u=3; 

N=*P53P59* 

P=H03  W  =  7; 

N=  * P61P  62  * 

P- 1411  W=2J 

N=*  UI CMOS* 

P= 14 1 8  U=17; 

N=*ETS* 

P= 150 1  y=2J 

*P  1  IP  13  • 

P= 1461  u=3? 

N=*  D09* 

P=1465  U=  3 * 

N=*MSOEPS* 

P=1472  U=2? 

N=*SEX* 

P= 1477  W=l| 

EXTRACT  NPS 


N=»P31P40* 

N=»8ASD  * 

N  =  ’P 5 3P  59  • 

N=»P61P62» 

N=*UICM9S» 

N=  *E  TS* 

N='PUP13» 

N=«OOB» 

N=  *  HSDEP3  * 

n=»s:x» 

N=»P31PA0* 

N=*8ASD* 

N= • P5  3P  59 • 

N=  *  P61P62 • 

N=*UICM03« 

N=* PE  ST  • 

/• 

//n^?fCnII0^r;?5^C,  P^OG=EXTR  ACT.S  JZE=1024K 

//S5tt  S3  o? 5eep??Sn i f s S8i31EON D- CXT" *c T 
Jf  SSgoSISic  15  SS :  51Kl!l;i;Si§i"Ecf"=" 1 •  • 

//srsiN  oo 

E5I2£SI^IRU^»kI?T  =  'NONEM 


P=1481 

W=10  { 

P= 1498 

y=3; 

P=1503 

Wr  7 5 

P-151  1 

U=25 

P-  1518 

U=17? 

P=  16  0  1 

U  =  25 

P= 1561 

W  =  3? 

P- 1565 

W=35 

p=1572 

W  =  2» 

P- 1577 

W  =  15 

P= 1581 

w=  io ; 

p= 1598 

w=3; 

P- 160  3 

W  =  7J 

P= 16 1 1 

y-  2  j 

°= 1618 

y=i7? 

p- 1 65 1 

y=5o  o 

n=*secono» 

N=  *ETS  * 

:  •piipi3« 
N  =  *  000 • 
N=*MSDEP$* 
N=*SCX* 
N=*P31P4Q* 
N  =  f  0 A  SO  * 

N~  * P5  3P  59 * 
N= • P61P  62  * 
N= • UICHOS* 

n=*ets* 

N=  *  P 1  IP  1 3  * 
N=  *  000  * 

n=**sdeps* 

N=*$EX* 

N=  • P31P4  0* 
•  B  A  SO  * 

N= • P5  3P  59  * 
N=  *  P  6  IP  62* 
N=»UICMOS* 
N= • E  T  3  * 
N=*P11PX3* 
N= • 0 09  * 
N=*MSDEPS* 
N=*SEX* 
N=*P21P40* 
N-  *8  A  SO  * 
N=*P 53P59* 
N=*  P61P62* 
N  =  *UI CMOS* 
N=  *  E TS  * 

N-  *P  1  IP  13* 
N=  *  DOB  * 

N=  *  MSDEPS  * 
N=»SEX» 
N=*P31P40* 
N=  *  8  A  SO  • 
N=*P53P59* 

N  =  * P6 IP  62  * 
N=  #UI CMOS  * 
N=*ET$* 
N=*P1XP13* 

N  =  *  D  OB • 
N=*NSDEPS* 

N  =  »SEX* 
N=*P31P40* 
N= • 8 A  SO  • 
N=*P53P59* 
N=*P61P62* 
•UICHOS* 


P=  1 
P=  120  1 
P-  1161 
P= 1 1 65 
P=1172 
11 77 
P-1181 
P=  1190 
P= 1203 
P=  1211 
P=1218 
P-1301 
P= 1261 
P= 1265 
P= 1272 
P=1277 
P= 1281 
P= 1298 
P= 1 3  0  3 
P= 1311 
P  = 1318 
P=1401 
P=1361 
P= 1365 
P-13  72 
P= 1377 
P= 1381 
P= 1398 
P- 1403 
P- 1411 
P=  1418 
P= 1501 
P= 1461 
P  = 1465 
P  =  1 4  72 
P= 1 4  7  7 
P= 1481 
P= 1498 
P= 1503 
P=  1511 
P= 1518 
P=1601 
P=  1 5  61 
P=1565 
P= 1572 
P= 1577 
P=1581 
P= 1598 
P= 1603 
P= 1 61 1 
p=i6ia 


U- 11 50 J 

w=2 ; 
w-3 ; 
w=3 ; 
w  -2 ; 
u  =  l; 

W  =  1  05 
u-3 ; 
w=7; 

w -2 ; 
u=i  7; 
u=2 ; 

w  =  3? 
w=3 ; 
u=2 ; 
w  =  i; 
U=105 
w=3 ; 

W  =  7? 
U=25 
W  =  1  75 

u=2; 
y=3 ; 

w=3 ; 

U  =  2  ? 

u  =  l  ? 

U  =  10? 

w=3 ; 

U  =  7J 

w=2 ; 
y=i  7; 
u=2 ; 

W  =  3? 

U  =  3  ; 

w=2 ; 
u=i ; 
w  =  io; 
w=3 ; 
y=7 ; 

U-2 ; 
w  =  l  75 
W  =  25 
w=3 ; 

W  =  3? 

W  =  2  5 
U- 1 5 
W=1  0  5 
W  =  3  5 
W  =  75 

u=2 ; 

W  =  175 
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EXRECOOS  cna 


]//MUS#CNA  J7B  <3420 » 3F7333) « *K 1NG» tCLASS=G 

'//•FORMAT  PR  ,3DNAME  =  »DEST  =  RMT01 _ „„ 

//•NA IV  °ROC=20 «RINGCHK=NO  t ORG  =  FMTO l  *LINES=20 
It  EXEC  EXRECODE  |REGI0N=1024K 


//OWEYTR.SYSIN  DD  • 

OCL 

N=  *S$N '  P=1 

L  =  4  T=45 

DCL 

N  =  1  HYECf  P=5 

L=  1  T=25 

OCL 

N  = • H  S  OEP  S  *  F - 7 

L= 1  T  =2 ; 

OCL 

N-’TFORH*  P=8 

L=  1  T=2? 

OCL 

N-MFQT*  P  -9 

L= 1  T  ;2  » 

OCL 

M=»MCAT*  P=10 

L= 1  T  =2  S 

OCL 

N=«TSCR1*  P  =  ll 

L=  1  T  =  2 ; 

DCL 

N=fTSCR2«  P -12 

L=1  T-2? 

OCL 

S=*TSCR3*  P=13 

L=  1  T  =2  5 

DCL 

N=»TSCR4*  P  =  14 

l  =  i  1=2} 

OCL 

N  =  *  T  SC  R5  #  P  =  1 5 

L=  1  T -2% 

OCL 

N=  * TS C R6  f  P  =16 

L=  1  T=2t 

OCL 

N=*TSCR7«  P=17 

L= 1  T  =2  » 

OCL 

N- • TSC  RB  *  P  =  18 

L=  1  T=25 

OCL 

N=»TSCR9*  P  =  19 

l= i  t  =2 ; 

OCL 

N^TSCRIO  •  P=20 

L=  1  T  =2 ; 

OCL 

N=»TSCR11*  P  =  21 

L=  1  T=2? 

DCL 

N=»TSCR12*  P  =  22 

l=  i  r=2; 

OCL 

N=  *  T  SC  R1 3  •  P  =  23 

L= 1  T  =2 ; 

OCL 

N=#TSCR14«  P=24 

L  =  1  T  =  2  ; 

OCL 

N=*TSCR15#  P=25 

L= 1  T  =2  ? 

DCL 

N=»TSCR16»  P  =  26 

L=  1  T  =25 

OCL 

N  =  *SERVICE*  P  =  2  7 

L=  1  T=25 

DCL 

Mr • PR  I  SVC  *  P - 2 8 

L=1  t=2; 

OCL 

N= • U A  I VE  R  f  P  =  2  9 

L=  1  T  =2  t 

OCL 

N  =  *  DO  E  Y 1  P  =  30 

L= 1  T  =2  5 

OCL 

N  =  *  OOE  M '  P  =  31 

L=  1  T  =2  ; 

DCL 

N  =  *  OOE  0  *  P  =  32 

L=  1  T=2? 

OCL 

N=  *TOE  NL •  P  =  3  3 

L=  1  T=25 

OCL 

N  =  •  ENLOP  T  f  P  =  34 

L=5  T:65 

DCL 

N= • 80N  US f  P  =  39 

L= 1  T=2? 

OCL 

N=  1  OPTION  *  P  =  40 

L=  1  T  =2  5 

OCL 

N=  *  TR  A  IN  1  P  =  4 1 

L=  5  T  =6 1 

DCL 

N=fRAFQTf  P  =  46 

L=  1  T  =2 ; 

OCL 

N  =  f  RMNTC  A  Tf  P=47 

L=  1  T  =2  ; 

DCL 

N=  f  RE  NOR M  F  •  P  =  48 

L=  1  T  =2 ; 

OCL 

N  =  fE  TS  YO  1  •  P  =  51 

L=  1  T  =  25 

DCL 

M=,ETSM01*  P  =  5  2 

L  =  1  T  =  2? 

DCL 

N=f HYECO 1  *  P  =  53 

L  =  1  T  =  2? 

DCL 

N  =  f  AF  Q  TO  1  •  P  =  54 

L= 1  T=2 1 

OCL 

N  =  *PG  0 1 •  P  =  55 

L  =  1  T  =  25 

OCL 

N=«009Yr>l»  P  =  5  6 

L  =  1  T=2  ; 

OCL 

M  =  *008  MO 1  •  P=  57 

L=  1  1  =  25 

OCL 

N=*D03001*  P  =  58 

L  =  1  t=2; 

OCL 

N  =  1 HS  9  1  ’  P=59 

L  =  1  T  =  2; 

OCL 

N=*DEPSni*  P-60 

L=  1  T  =  2; 

OCL 

M  =  ,SEX01*  P  =  6 1 

L= 1  T=25 

OCL 

N  =  *A  F  QTG  0 1 1  P  =  6  2 

L=  1  T  =  25 

DCL 

M=*EAGE01»  P  =  63 

L  =  1  T  =  2? 

OCL 

N=  fPAGE3 1  *  P  =  64 

L= 1  r=2; 

OCL 

H  =  ’ R  TNEC  0 1  *  P=65 

L=7  T  =  6  » 

OCL 

N  =  *  B A  SDY  0 1 •  P=72 

L  = 1  T  =  2  5 

OCL 

M=  *BA  SOHO l •  P=  73 

l = i  t=2  ; 

OCL 

N= •BA  SDO  0 1 1  P  =  74 

L  =  1  T  =  2  5 

DCL 

M=  *OOPGY  01*  P  =  75 

L  =  1  T  =  2  5 

DCL 

N  = #  00  PGM  0 1 •  P  =  76 

L  =  1  T=2{ 

OCL 

N=  •  OOLEY  0  1  *  P=  77 

L=1  T=2 { 

OCL 

N= 1 00  LEHO  1  *  P  =  78 

L  =  1  T  =  2  } 

OCL 

N=*REGRS01t  p=79 

L  =  1  T  =  2? 

OCL 

N= • YAO  TYO 1 •  P=8Q 

L  =  1  T  =  2  * 

OCL 

N  =  • TI G  01  •  P  =  81 

L  =  1  T  =  2  ♦ 

OCL 

M  =  •  VR  8¥  0 1 f  P=82 

L=  1  T  =  2; 

DCL 

N= • PRO  P YR 1  *  P=83 

L  =  1  T  =  2  t 

OCL 

N  =  «SCGRP01«  P=  84 

l=i  t=2 ; 

OCL 

N=  •RESTO 1 •  P  =  85 

L= 16  T=65 

OCL 

V=,ETSY02*  P  =  I01  L=I  T=2S 

OCL 

N=*ET$M02*  P  =  1P  2  L  =  1  t=2; 

OCL 

V=*HYEC02*  P=103  U=1  T=2J 

OCL 

N=»AFQT02»  P=104  L=i  T=2! 

OCL 

V  =  *PGT2*  P  =  105  L  =  1  T=  2  * 

OCL 

V  =  • DOB  YO  2  •  P  =  106  L  =  1  T=2I 

OCL 

V=*00BM02»  P=10  7  L  =  1  T=2I 

OCL 

V=*DOBD02»  P=108  L  =1  T=2J 
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am co oc  cm 


DCL 

N=*MS02» 

P  =  109 

L  =  1 

T=2  5 

dcl 

N=»OEPS02 • 

P  =  110 

L  =  1 

T=  2  5 

OCL 

N=*SEX02» 

p= 111 

L  =  1 

T=  21 

DCL 

N= • AF  Q  TG  0  2 • 

p  =  l  12 

L  =  1 

T=  2  5 

OCL 

N=*EAG£02» 

P-113 

L  =  1 

t=  2 ; 

OCL 

N  =  #  PA  GEO  2  * 

P  =  1 1 4 

L  =  1 

T=2? 

OCL 

N=  *  R TNEC  0  2# 

P=115 

L  =7 

T  =  6; 

DCL 

N  = * 8A  SOYO  2 • 

P  =  122 

L  =1 

r=2; 

DCL 

N='8ASOM02* 

P  =  1  2  3 

L  =  1 

t=2; 

DCL 

N=*9ASOD02* 

p  - 1  2  A 

L  =  1 

T=  2? 

OCL 

N= •OOPGY02* 

P-125 

L  =  1 

T=  2; 

OCL 

?4=*OOPSM02* 

P=1  26 

L=1 

T=2? 

DCL 

n=  'ooleyo2» 

P-127 

L  =1 

T  =  2  ? 

DCL 

N=*OOLEH02* 

P  =  128 

L  =1 

t=2; 

OCL 

N=fREGRS02* 

P  =  129 

L  =  1 

T=25 

OCL 

N=  *  YAO  TY  0  2 • 

P=13Q 

L  =  1 

T=2; 

DCL 

N=*TIG02» 

P  =  1  3  1 

L  =  1 

T=  2; 

DCL 

N  =  * VR9H02  * 

P  =  1  32 

L  =1 

T=  2? 

DCL 

^  =  *  PR  0  P Y  0  2 • 

P  =  133 

L  =  1 

t=2  ; 

OCL 

N  ~  •  SCGRPO  2« 

P  =  1  3  4 

L  =  1 

T=  2? 

OCL 

N  =  *RESTQ2# 

P  =  1  35 

L  =16 

t=  6 ; 

OCL 

N=*ET$ Y1 3  » 

P  =  151 

L  =1 

T=2  5 

DCL 

M=*ETSM03  * 

P  =  1 5  2 

L  =  1 

t=2  ; 

DCL 

N=*HYEC03* 

P  =  153 

L  =  1 

T=  25 

DCL 

N=»AF9T03« 

P  =  154 

L  =  1 

T=2? 

OCL 

Y  =  *PG0  3* 

P=  1  55 

L-l 

T=  2» 

DCL 

N=*D08 Y03  • 

P  =  156 

L  =1 

T=2; 

OCL 

N  = *OO0MO3  • 

P  - 15  7 

L  =  1 

T=  25 

DCL 

N=*OOBO03  * 

P  =  158 

L  =  1 

T=2? 

DCL 

N='H$03* 

P=  159 

L  =  1 

T=2  J 

DCL 

N=»DEPS13« 

P  -  1 6  0 

L  =1 

t=2; 

OCL 

N  =  •  SE  X 03  • 

P=161 

L  =  1 

t=2; 

OCL 

N=  * AF  a  TG  n  3  f 

P  =  1  6  2 

L  =  1 

T=  2  » 

DCL 

N  =  *  EA  GEO  3  • 

P  =1 6  3 

L  =  1 

T=  2? 

DCL 

N  =  •  PA  GEO  3  f 

P  =  1  6  4 

L  =1 

T  =  2? 

DCL 

M  =  *RTNEC  0  3* 

P-165 

L  =  7 

T=  6. 

OCL 

N=»3AS0Yn3* 

P  =  172 

L  =1 

T=  2  ? 

DCL 

N=  *  8  A  SDH 0  3f 

P=  1  7  3 

L  =1 

T=  25 

OCL 

N='BASDOO  3« 

P  =  1  74 

L  =1 

T=25 

OCL 

N  = 1 0 OPG Y 0  3 • 

P  =  1  75 

L  =  1 

T=2? 

OCL 

H = »00PG8n  3* 

P  =  1  7  6 

L  =  1 

T=  2  » 

OCL 

N=  *  DOLE  YQ  3 f 

P  =  177 

L  =1 

T=  2? 

OCL 

N= • OOL  EM  0  3 • 

P  =  1  78 

L  =1 

T=  2  * 

DCL 

N=»REGRS03* 

P  =  1  79 

L  =1 

t=2; 

OCL 

N=«YA0TY03» 

P  =  1  8  0 

L  =  1 

t=2; 

OCL 

N=» TIG03« 

P  =  181 

L  =1 

t=2; 

OCL 

M  =  « VRBM03  * 

P  =  1  8  2 

L  =  1 

t=2; 

OCL 

N  =  f  PR  OPY 0 3* 

P-183 

L  =  1 

t= 2 ; 

OCL 

H- 'SCGRPO 3f 

P  =  184 

L  =  1 

T=  25 

OCL 

N  =  »REST03* 

P  =  1 85 

L  =1  6 

T=6  5 

DCL 

*ETS  Y04  • 

P-20  1 

L  =1 

T=  2  * 

DCL 

N=*ETSH04 • 

P  =  202 

L  =1 

T=2I 

OCL 

N  =  * HYE'CO  4  • 

P  =  20  3 

L  =1 

T=  2  » 

OCL 

N=*AF()T04  * 

P  =  204 

L  =  1 

T=25 

OCL 

N  =  ■PGO  A  * 

P  =  205 

L  =  1 

T=  25 

DCL 

N=  *D08Y04  « 

P  =  206 

L  =1 

T=  2  5 

OCL 

N  =  «OOBH04  • 

P  =  2  0  7 

L  =  1 

T=2  5 

DCL 

N  = #D09Q0 4  * 

P  =  208 

L  =  1 

T  =  2I 

OCL 

N=*  MSO  4* 

P  =  209 

L  =  1 

T= 2 ; 

DCL 

N=*OEPS04 « 

P  =  210 

L  =1 

T  =  2i 

OCL 

N=*SEX04» 

P  =  21 1 

L  =  1 

T=2I 

OCL 

M=*AFQTG04* 

P  =  212 

L  =  1 

t  =  2 ; 

DCL 

H = *EAGE04  t 

P  =  21  3 

L  =1 

T=  2  5 

DCL 

N=»PAGE04  * 

P  =  2 1  4 

L  =  1 

T=25 

DCL 

N  =  *  RTNEC 0  4 • 

P  =  215 

L  =  7 

T=  6  5 

OCL 

N=*8A$OY04* 

P  =  225 

L  =  1 

T=  2? 

OCL 

N=  #  B A  SOM  0  4  f 

P-2  2  3 

L  =  1 

T=  2 « 

OCL 

N  =  f  B  A  SOO  0  4  * 

P  =  224 

L  =  1 

T=  2  5 

OCL 

N  = •OOPG Y 0  4f 

P  =  2  25 

L  =  1 

T=  2  5 

DCL 

N  =  #DO  PGM  0 4« 

P  =  226 

L  =1 

T=  2  5 

OCL 

N=  f  DOLEYO  4  * 

P-221 

L  =  1 

T=2? 

OCL 

N= • 00 LEM  0  4  * 

P  =  228 

L  =  1 

r=2; 

DCL 

N= 1  RE G RS 0  4 • 

P  =  229 

L  =1 

T=  2  5 

OCL 

N- *  Y AO  TY  0  4  * 

P  =  230 

L  =  1 

T=  2  5 

OCL 

N=fTIG04* 

P  =2  31 

L  =  1 

T=2  5 

DCL 

N=*VRB*04  * 

P  =  232 

L  =  1 

T=2? 

OCL 

N  =  f  PROPY  0  4f 

P  =  233 

L  =  1 

t =2 ; 

OCL 

N=*SCGRP04» 

P  =234 

L  =  1 

T=  2 1 

34 


EXFECOOE  CNA 


DCL 

n=«resto4  • 

P  =  2  35 

L  =  16 

t=6; 

DCL 

N  =  fE  TS  YO  5  * 

P-2  51 

L  =  1 

t=2; 

OCL 

N  =  *E  T  $  HQ  5  • 

P  =  252 

L  =  1 

r=2; 

OCL 

N  =  fHYE  C9 5  * 

P  =  253 

L  =1 

t=2; 

OCL 

H  =  * AFQT*5  • 

P-254 

L  =1 

t=2; 

DCL 

N= »PG 

P  -  2  55 

L  =  1 

r=2; 

DCL 

N  =  f009 Y03  f 

P  =  25  6 

L  =1 

t=2; 

DCL 

N- •DO9M05  • 

P  =  257 

L  =  1 

t=2; 

OCL 

N=«00R015  • 

P=  25  8 

L  =1 

T=  25 

OCL 

N=»MS05« 

P  =  259 

L  =  1 

t=  2; 

OCL 

N=»DEPS05  * 

P -  260 

L  =1 

t=2; 

DCL 

N=»$EX05* 

P-2  61 

L  =  1 

T=2  5 

DCL 

N  =  * AF  0  TG  0  5 • 

P  -  262 

L  =  1 

t=2; 

OCL 

N=»EAG£05« 

P  =  263 

L  =1 

T=2J 

DCL 

n=*pageos* 

P  =  264 

L  =  1 

T  =  2  5 

DCL 

N=»RTNEC05« 

P  =  265 

L  =  7 

t=6; 

OCL 

N=  *8ASDY05* 

P-272 

L  =  1 

T=  25 

OCL 

N=»3ASQM95» 

P  =  273 

L  =1 

T=  25 

OCL 

N=*BASOD0  5 * 

P  =  274 

L  =1 

T  =  2  5 

OCL 

N  =  •D0°GYl5f 

P  =  2  75 

L  =  1 

T=  2 ; 

DCL 

N =  •  DOpGM  0  5 • 

P-276 

L  =1 

T=  2? 

DCL 

N  =  • OOLEYO  5 • 

P-277 

L  =  1 

T=2  5 

DCL 

N=*OOLEM05' 

P=278 

L  =1 

T=25 

DCL 

N=*°EGRS05» 

P  =  279 

L  =  1 

T  =  2  5 

DCL 

N-,YADTY05* 

P  =  280 

L  =1 

T=  25 

DCL 

N  =  *  TIG05* 

P  =28  1 

L  =  1 

T  =  25 

DCL 

N=  •  VR  R  MO  5  • 

P  =  282 

L  =  1 

T=  2  5 

DCL 

N=*PROPY05* 

P  =  29  3 

L  =  1 

T=  25 

DCL 

N -  *  SCGRP05* 

P  =28  4 

L  =  1 

T-  2  5 

OCL 

N=  *R :  S  TO 5  • 

P=  285 

L  =16 

T=  6  5 

OCL 

N='ETSY06  * 

P  =  301 

L  =1 

T-  2  5 

DCL 

N=*ETSM06* 

P  =  3  0  2 

L  =  1 

T  =  2  5 

DCL 

N  = *HYEC06  • 

P  =  30  2 

L  =  1 

t=2  5 

DCL 

N= • AF  QTO  6  f 

P  =  30  4 

L  =1 

T=  2} 

OCL 

N=»PG06* 

P  =30  5 

L  =1 

T=  25 

OCL 

N  = ♦ OOB  YO  6 * 

P  =  3  0  6 

L  =1 

T  =  2 1 

OCL 

N  =  •DOBMOS  * 

P  =  30  7 

L  =  1 

T=  2  5 

OCL 

N  -  *  D08D06  • 

P=3O0 

L  =  1 

T=  2  5 

DCL 

N=*MSO  6* 

P  =  30  9 

L  =1 

T=  2  5 

OCL 

N=*DEPS06  * 

P  =  310 

L  =  1 

T  =  2  5 

OCL 

N=*SEX96» 

P  =  31 1 

L  =  1 

T=  25 

OCL 

N=*AFQTG16* 

p  =  312 

L  =1 

T=  25 

OCL 

N=*EAGE06  • 

P  =  31  3 

L  =1 

T=  2  5 

DCL 

N  =  *  PAGr  0  6  • 

P=  31  4 

L  =  1 

1=2  5 

OCL 

N  =  • RT  NEC  0  6f 

P  =  3 1  5 

L  =  7 

T  =  6  5 

OCL 

N=*BA30Y06* 

P  =  32  2 

L  =  1 

T=  25 

OCL 

N  =  *  8  A  SOHO  6 • 

P=  32  3 

L  =  1 

T=2  5 

OCL 

N  =  »BASOOO  6' 

P  =  32  4 

L  =1 

T=  25 

OCL 

N=  *OOPGYO  6 * 

P  =  325 

L  =1 

T=  2  5 

OCL 

N=  *  OOP  GMO  6 • 

P  =  32  6 

L  =1 

T=  25 

OCL 

N='00LEYQ6* 

P  =  32  7 

L  =  1 

T=  25 

OCL 

N=*ODLEM06* 

P  =  32  8 

L  =1 

T=  2  5 

DCL 

N  = •REGRS06* 

P  =  32  9 

L  =1 

T=  2 1 

DCL 

N=*YAOTY06* 

P  =  3  30 

L  =1 

T=  25 

DCL 

N=f TIG06* 

P=  3  31 

L  =1 

T=  2  5 

OCL 

N=*VRRM06* 

P  =  3  32 

L  =  1 

T=  25 

DCL 

N  =  fPR  0  P YO  6  f 

P  =  3  3  3 

L=  1 

T  =  2  5 

OCL 

N=  f  SCG  R  PO  6* 

P  =  334 

L  =  1 

T=  2  5 

DCL 

N=*RE$T06 • 

P  =  335 

L  =16 

T=  65 

DCL 

N=*ET$ Y07 • 

P  =  351 

L  =  1 

T=  2  5 

DCL 

N=  *ETSM07  • 

P  =  352 

L  =1 

T=  2  5 

DCL 

N=  *  HYE  CO  7  • 

P  =  353 

L  =  1 

T=  2 } 

OCL 

N  =  '  AFQ  TO  7  # 

P  =  354 

L  =  1 

T=  2  • 

DCL 

N  =  #PGO 7* 

P  =  355 

L  =  1 

T=  25 

OCL 

N  =  *003  YO  7  * 

P  =  35  6 

L  =1 

T=  25 

OCL 

N  =  •  008  MO  7  9 

P=  357 

L  =  1 

T=  2  5 

OCL 

M  =  f DOS  00  7  * 

P=  35  8 

L  =1 

T=  2 1 

DCL 

N  =  • MSO  7  * 

P  =  35  9 

L  =  X 

T=2I 

DCL 

N=*DEP$07* 

P  =  36  0 

L  =  1 

T  =  2  5 

DCL 

N=»$EX97* 

P  =  361 

L  =1 

T=25 

OCL 

N  =  * AF  QT G  07* 

P  =  362 

L  =  1 

T  =  25 

OCL 

N  =  • EAGEO  7  f 

P  =  363 

L  =1 

T=  2  5 

OCL 

N  =  *  PA  GEO  7  # 

P  =  364 

L  =  1 

T=  2  5 

OCL 

N=  *RT  NEC 0  7 • 

P  =  365 

L  =  7 

T=  6  1 

OCL 

N=*BASDY07f 

P=372 

L  =  1 

T  =  2  5 

QCL 

N=*BASDM07* 

P=  373 

L  =1 

T=  2  ( 

OCL 

N  =  • B A  SDO  0 ?• 

P=  374 

L  =1 

T=  2  5 

OCL 

N-  •OOPGY07* 

P  =  375 

L  =1 

T=  2  5 
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OCL 

dcl 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

DCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

DCL 

OCL 

DCL 


N  =  #r)0  °GH0  7 * 
N=  #  DOLEYQ  7  * 
N=fD3LEM37* 
N=»REGRS07» 
N  =  *YA3TY0  7  • 
N  =  *TT  G97  • 

N  = * VR9M07  * 
N=»PROPY07* 
N  =  • SCGRPO  7» 
N  = fRE  S 1°  7  • 

N  = •ETSYOR  * 

N  =  »ETSM<18  • 

N  = *HYEC0  8  • 

N  = * AF  QTO  8  • 
n=*pgi8» 

N  =  «  003 Y"8  * 

N  = *OOBM38  • 
V=«008D08  * 
N=*H$18» 
N=«OEP$98« 

N  =  #SE  X98 • 
N=*AFQTG08» 
N  = *EAGEQ8  * 
M=*P*GE08  • 
N=«RT^ECr)8* 
N= ■ BA  $0 Y9  8 • 
H- f BA  SOHO  8  * 
N  = • BASDOO  8  * 
N  =  f00P  GY08  * 
N=*9QPGM1 8* 
N- •Q0LEY18* 
N=  *OOLEMO  8* 
N=«RE3RS08* 
N=* YAOTY08* 
S=«TIG08  • 

H- * VRBM09 * 
N=*PR0PY18* 

N  = #  SC  G  RP9  8  * 
*RF  S  T08  * 
N-’ETSYTO  • 

N  =  fE 1 S  H09  * 

N  =  «HYEC09  * 
N=* AFQT19 • 
U=*PG19* 

N  =  *008 Y09 * 
N=*DOBM09  * 

N  =  *DOBO09  * 

N=  *  MSI  9  * 

N=*0 E°S39 * 

N=  f SE  XO  9  * 

N  =  *AFQTGO  9» 

N  =  f EA GE09  • 

N=  *PA  GE09  • 

N -  *  R  TMEC  0  9* 
N=*BAS0Yn9» 
N=fBASOM09» 

N  =  f  B A  SOO  0  9f 
M  =  *OOPG YO  9 • 

N  = 1 00  DGH  0  9  f 
N  =  •D0LEY9 9 » 
N=»OOLEB09t 
M=»REGRS09* 

N  = • YAO  TYO  9f 
M=,TIG09* 

H- *VR8K09 ■ 

N  =  * PROPYO  9* 

N  =  «  SCGRPO  9* 

N  =  *RE3T09  • 

N  = fETS  Y10  * 
N=*ETSH10  * 

N= ' HYE  C 10  * 
N=#AFQT10  • 

N  =  *PG 1 0  • 

N  =  *008  Y10  * 
N=»DOBMiO  * 

N=  f OOB 0 10  * 
N=»MS10» 

N  = • DE  P  SiO  • 


P  =  376 
P  =  37  7 
P  -  378 
P  =  379 
P  =  380 
P  =  381 
P  =38  2 
P  =  383 
P  =  38  4 
p  =  385 
P  =  40  1 
P  =  40  2 
P  =4  0  3 
P  =  4  0  4 
p  =  40  5 
P  =  40  6 
P  =  40  7 
P  =  4  0  8 
P  =  40  9 
P  =  410 
P  =  41  1 
P  =  4  1  2 
P  =  4 1  3 
p  =  4  1 4 
P  =  415 
P=  422 
P  =  4  2  3 
P  =  42  4 
P  =  4  25 
P  =  426 
P  =  42  7 
P-428 
P  =  42  9 
P  =  430 
P  =  4  3  1 
P  =  432 
P  =  4  3  3 
P  =  4  3  4 
D  =  4  35 
P  =  45 1 
P  =  452 
P  =4  5  3 
P  =454 
P  =  455 
P -456 
P  =  4  5  7 
P  =  458 
P  =  4  59 
P  =  4  6C 
P  =  46 1 
P  =  462 
P  =  4  63 
P  =  46  4 
P  =  46  5 
P  =  4  72 
p  =  4  7  3 
P  =  4  7  4 
P=  4  75 
P  =  476 
P  =  477 
P  =  478 
P  =  47  9 
P  =  58  0 
P  =  58 1 
P  =  582 
P  =  58  3 
P  =  58  4 
P  =  585 
P  =  50  1 
P  =  50  2 
P  =  50  3 
P=5  0  4 
P  =  50  5 
P  =  50  6 
P  =  50  7 
P  =  508 
P  =  509 
P  =  5 10 


L=1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =1 
L  =1 6 
L  =  1 
L  =1 
L  =  1 
L  =1 
L  =  1 
L  =1 
L  =  1 
L  =  1 
L  =1 
L  =  1 
L  =  1 
L  =  1 
L  =1 
L  =  1 
L  =7 
L  =  1 
L  =  1 
L  =  1 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =  1 
L  =  l 
L  =  1 
L  =  l 
L  =  1 
L  =  1 
L  =16 
L  =1 
L  =  i 
L  =  1 
L  =  i 
L  =  1 
L  =  1 
L  =1 
L  =  1 
L  =  1 
L  =  1 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =7 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L=1 
L  =1 
L  =  1 
L  =1 
L  =1 
L  =  16 
L  =  1 
L  =  1 
L  =1 
L  =  1 
L  =  1 
L  =1 
L  =1 
L  =  1 
L  =  1 
L  =1 


T=25 
T=2  5 
T=  21 

t=2; 
t=  2 ; 
t=2; 

T=2| 
1  =  2? 
1=2  5 
T=  6  ? 

t=2; 

r=2; 

T=2{ 

t=2; 

T=  2  ? 
1=25 

T=  2  J 
t=2; 

T=2J 
T=  2  * 
1  =  25 
t  =  2 ; 
1=25 
T=25 
T=e; 
T=2; 

t  =  2; 

Tr  2 ; 
T=2; 
T  =  2  * 
T=  2  * 
1=25 
r=  2i 
t=2; 
t=  2; 
t-  2 ; 
r=2 ; 

T  =  25 

t=6; 

T=25 

r=2; 

t^2; 

r=2; 

r=2; 

T=25 

t=  2; 

t  =  2 ; 

T  =  2? 
T=  2; 
t=2; 
t=  2 ; 
t=  2 ; 
t=2; 

T=  6  5 
T=  2  I 
T=2? 
T=2I 
1=2  5 
T=25 
T=2{ 
1=2  5 
1=25 

t=2; 

1=25 

1=25 

1=25 

1=25 

1=6? 

1=2? 

1  =  25 
1=25 
1=2 
1=25 
1=25 
1=2  5 
T=  2  5 
1=2? 
T=  2  5 
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DCL  N=  *SE X 10  ' 
OCL  N=*AFQTG10* 
DCL  N^’EAGEIO  • 
OCL  N='PAGE10» 
DCL  N='RTNEC10» 
DCL  N='BASDY10* 
DCL  N='BASDK10» 
DCL  N  =  *  BA  SOO 1 0  * 
DCL  N=*D0PGY10» 
DCL  N=*DOPGMin» 
DCL  N - *0  OLE Y1  0  • 
DCL  N='D0LEH10« 
DCL  N=*REGR310» 
DCL  W  =  *YA0TY1C 
DCL  M=*TIG1"»» 
DCL  N='YRBH10» 
OCL  M=*PR0PY10» 
DCL  N= ' SC  GR  PI  0  • 
DCL  • RE  ST10  • 
DCL  N  =  'ETSY11  • 
DCL  N=*ETSH11* 
DCL  N=*HYEC11  • 
DCL  N=»AF<JT11» 
DCL  N=»PG11* 

DCL  N= 'DOB  Y1 1  • 
DCL  N= 'DDBM1 1  * 
DCL  N=  *  D3B01 1  • 
DCL  N='MS11» 

DCL  N=*DEP311» 
DCL  S=*SEX11» 
DCL  N=*AFQTG11» 
OCL  N= 'EA3E1 1  • 
DCL  M  =  ' PA  GE1 1  • 
DCL  N='RTNEC11» 
DCL  N  =  *  B  A  S  D  Y  1 1* 
DCL  N-»BAS0H11* 
OCL  '  B  A  GOD  11* 
DCL  N=»D0PSY11» 
DCL  N='00PG111» 
DCL  N=»D0LEY11» 
OCL  N=»0DL£H11» 

dcl  n='regrsu» 

OCL  N  =  • YAD  T Y1 1  * 
DCL  N=»TIG11» 
OCL  Ys'VRBMll* 
DCL  M  =  *  PR  D  °Y 1  1  • 
DCL  N=*SCGRP11« 
DCL  N- *RE  S  Tl 1  • 
DCL  N=*ETSY12* 
OCL  N='ETSM12» 
DCL  N  = ♦HYEC12  » 
DCL  N=»AFaT12* 
OCL  N='PG1 2' 

DCL  N=»D03Y12* 
DCL  '009H12 * 
DCL  N=  *0000 12  • 
DCL  • MSI  2* 

DCL  S=*DEPS12* 
DCL  N=*SEX12» 
DCL  N=*AFQTG12» 
DCL  N=»EAGE12» 
DCL  X  =  *PA  GE12  • 
DCL  N=»RTNEC12» 
DCL  N=*BASQY12* 
OCL  N=»BASDH12* 
DCL  »4=*BASOD12' 
OCL  *=»00PGY12« 
OCL  N=*D0PGM12» 
DCL  N='D0LEY12» 
DCL  N  =  • DDL  EM  1 2 • 
DCL  N=»REGRS12» 
OCL  M=*YADTY12» 
DCL  N= • TI G 12  • 
DCL  N=  *  VRB  Ml  2  • 
DCL  N  =  *  PRO  °Y1 2* 
DCL  M=»SCGRP12* 
OCL  N= •REST12 • 
OCL  N=*ETSY13» 


P  =  51 1 

L  =  1 

r=2; 

P  =  51  2 

L  =  1 

T=2? 

P  =  513 

L  =  1 

T=2  5 

P  =  514 

L  =1 

T=  2  * 

P  =  5 1 5 

L  =  7 

T=  6  5 

P  =  52  2 

L  =  1 

T=2? 

P  =  523 

L  =  1 

T=2S 

P  =  524 

L  =1 

t=2; 

P  =  5  25 

L  =  1 

t=2; 

P  =526 

L  =1 

T=  2  5 

P=  52  7 

L  =1 

t=2; 

P  =  528 

L  =1 

T  =  2  5 

P  =  52  9 

L  =  1 

T=  2 ; 

P  =  5  3  0 

L  =  1 

T=  2; 

P  =5  3 1 

L  =1 

t=2; 

P  =  532 

L  =  1 

T=  2  5 

‘  =  533 

L=  1 

T  =2  5 

P=534 

L  =  1 

T=2? 

P  =  5  35 

L  =  1 6 

T=6? 

P  =  551 

L  =  1 

t=2; 

P  =  552 

L  =  1 

T=  2; 

P  =553 

L  =  1 

t=2; 

P  =554 

L  =1 

t=2; 

P  =  555 

L  =  1 

t=2; 

P  =  55  6 

L  =1 

t=2; 

P=5  57 

L  =1 

t=2; 

P  =  558 

t_  =  1 

t  =  2; 

P  =  559 

L  =1 

T=  2; 

P  =  560 

L  =1 

t= 2 ; 

P  =  561 

L  =  1 

T=  2  * 

P  =  5  6  2 

L  =1 

T  =  2  { 

P  =  563 

L  =1 

T=  2 » 

P  =564 

L  =  1 

T=2? 

P  =  5  65 

L  =7 

t=6; 

P=  5  72 

L  =  1 

T=  2; 

P=  573 

1=1 

T=  2; 

P  =  5  7  4 

L  =  1 

T=2  5 

P=  5  75 

L  =1 

T  =  2  • 

p  =  5  76 

L  =1 

Tr  2; 

P  =  5  7  7 

L=l 

T=  25 

P  =  5  78 

L  =  1 

T=25 

P=  5  79 

L  =  1 

t=2; 

P  =  58(? 

1  =  1 

t=2; 

P  =58 1 

L  =1 

r=2? 

P=  58  2 

L  =  1 

T=25 

P  =  5  83 

L  =  1 

1=2; 

P  =58  4 

L  =  1 

T=  2 » 

P  =  5b5 

L  =1  6 

T=6; 

P  =  6  0  1 

L  =1 

t  =  2; 

P  =6  0  2 

L  =1 

t=2; 

P  =  6  0  3 

L  =  1 

t=2; 

P  =60  4 

L  =  1 

t=2; 

P  =  60  5 

L  =1 

T=  2; 

P  =  60  6 

L  =1 

t=2; 

P  =60  7 

L  =  1 

t  =  2; 

P  =  608 

L  =  1 

T=  2; 

P  =  6Q9 

L  =  1 

^=2; 

P  =  6  10 

L  =1 

T=25 

P  =  6  1 1 

L  =  1 

t=  2 ; 

P  =61  2 

L  =1 

T=  25 

P  =6  1  3 

L  =1 

T=  2  1 

P=614 

L  =  1 

T=  25 

P  =  6 1 5 

L  =  7 

T=65 

P  =  6  2  2 

L  =  1 

T=  25 

P  =623 

L=1 

T=2i 

P=  6  24 

L  =  1 

T=25 

P  =  625 

L  =1 

T=2? 

P  =  6  26 

L  =1 

t=  2 ; 

P  =  627 

L  =1 

t= 2 ; 

P  =62  8 

L  =1 

T  =  25 

P  =  629 

L  =1 

T=  2  5 

P  =  63  0 

L  =  1 

T  =  2  5 

P  =  6  31 

L  =  1 

T=25 

P  =  632 

L  =1 

t=  2 ; 

=  633 

L  =  1 

T  =2  5 

P  =  6  34 

L  =  1 

T  =  2 ; 

P  =  6  35 

L  =  16 

t=6  ; 

P  =  65 1 

L  =1 

T=2? 
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DCL 

N=  *£TS  M 1 3  * 

P  =  65  2 

L  =  1 

T=2? 

DCL 

N=*HYEC13 * 

P  =  653 

L  =1 

t=2; 

DCL 

N=*AFQT13  * 

P  =654 

L  =1 

T  =  2  • 

OCL 

N=  *PG1 3* 

P  =  655 

L  =  1 

T=  2  * 

OCL 

N=*003Y13* 

P  =  6  5  6 

L  =1 

T=2? 

OCL 

N  =  *003  M  1  3  * 

P  =  65  7 

L  =  1 

T=2  5 

OCL 

M  =  * DDRD13  • 

P  =  658 

L  =  1 

T  =  21 

OCL 

N  = • M SI  3  * 

P  =  659 

L  =  1 

T=  2 1 

OCL 

N  = *0EPS13  * 

P  =  66Q 

L  =  1 

T=2? 

OCL 

n=*sexi3* 

P  =  66  1 

L  =1 

T=2; 

OCL 

N  =  *AFQTG13* 

P  =  662 

L  =  1 

r=2; 

OCL 

N=*EAG£13* 

P  =  663 

L  =  1 

T=  2 1 

OCL 

n=*pagei3* 

P  =  664 

L  =  1 

T=2J 

OCL 

N  =  *RT NEC  1 3f 

P  =  665 

L  =  7 

T  =  65 

DCL 

M  =  •  B  A  S  Q  Y 1  3  * 

P  =  6  7  2 

L=  1 

T=2? 

OCL 

N=*9AS0M13* 

P  =  6  7  3 

L  =1 

T=2? 

DCL 

N=*8ASDD13* 

P  =  674 

L  =  1 

T=2; 

OCL 

N  =  * DDPGY  1  3  * 

P  =6  75 

L  =  1 

T  =  2i 

OCL 

N=*D0PGM 13* 

P  =  6  76 

L  =1 

T=2; 

OCL 

N=*00LFY13* 

P  =  6  7  7 

L  =1 

T=2; 
T=  2? 

DCL 

H-  •DDL  EM  1 3 • 

P  =  6  7  8 

L  =  1 

OCL 

N= *REGRS 13* 

P  =6  7  9 

L=1 

T=  2  1 

OCL 

N  =  * YA0TY13* 

P=680 

L  =1 

t=2; 

OCL 

N  =  »  TI 313* 

P  =68  1 

L  =1 

T=2? 

OCL 

N=*VRBH13* 

P  =68  2 

L  =1 

r  =  2 ; 

OCL 

N  =  •  PR 0 P Y 1 3 • 

P  =  683 

L  =  1 

t=2; 

OCL 

N=*$CGRP13* 

P  =6  8  4 

L  =1 

t=2; 

OCL 

N=*R£ST13* 

P  =  68  5 

L  =16 

t=6; 

OCL 

N  =  *  £T  $  Y 1 4 * 

P  =  7  0 1 

L  =  1 

T=2? 

OCL 

N  =  *FTSM14  * 

P  =  7  0  2 

L  =  1 

T  =  2 » 

OCL 

N=*HYrC14  * 

P  =  70  3 

L  =  1 

T=  2 ; 

OCL 

M  =  *AF0T14  * 

P  =  70  4 

L  =  1 

t=2; 

OCL 

N=  *PG1 4* 

P  =  7  05 

L  =  1 

t=2; 

DCL 

N=*DOfl Y14 * 

P  =  70  6 

L  =1 

r=  2; 

DCL 

N=*00BM14  • 

P  =  70  7 

L  =1 

t=2; 

DCL 

X  =  * 003  0 1 4  • 

P  =  70  6 

L  =  1 

t=  2; 

OCL 

N  =  * MSI  4 • 

P  =  70  9 

L  =1 

t=2; 

OCL 

N=*0E°S14* 

P  =  71  0 

L  =  1 

t  =  2; 

OCL 

N=*SEX14* 

P  =  71 1 

L  =1 

T=2? 

OCL 

N  = *AF1T314* 

P  =7  1  2 

L  =1 

t  =  2; 

OCL 

N=*EAGE14  * 

P=  7 1  3 

L  =1 

T  =  2  5 

OCL 

N=  *PAGE14  * 

P  =  7 1  4 

L  =1 

r=  2; 

DCL 

Nr • R  TNEC 1 4  * 

P=  7 1 5 

L  =  7 

T=  6  l 

OCL 

N  =  *  BA  SDY1 4  * 

P  =  72  2 

L  =1 

t=  2; 

OCL 

N -  1  BA  SOM  1 4 • 

P=  72  3 

L=  1 

t=2; 

OCL 

N=*BAS0D1 4* 

P=  724 

L  =  1 

t=2; 

OCL 

N=*00:>GY14* 

P  =  725 

L  =  1 

t-  2; 

OCL 

N=*00PGM14* 

P  =  7  26 

L  =1 

t=  2; 

DCL 

N  =  *  OOLEY 1 4  * 

P-121 

L  =1 

t=2; 

OCL 

N=*00LEM14* 

P=  72  8 

L  =1 

T=25 

OCL 

N=*REGRS14* 

P  =  72  S 

L  =  1 

t=2; 

OCL 

N=*YADTY14* 

P=  7  30 

L  =  1 

T=  2  5 

OCL 

N=  *TIG14* 

P=  731 

L  =  1 

T=2? 

OCL 

N=* VRBM14  * 

P  =  732 

L  =  1 

T=2; 

OCL 

N=*PR0PY1 4* 

P=  73  3 

L=  1 

r=2» 

OCL 

N=*  SC3PP1 4* 

P  =  7  34 

L  =1 

T=  2; 

DCL 

N=  *REST14  * 

P  =  7  35 

L  =16 

T=6  5 

OCL 

N  = *E T  3  Y 15  * 

P  =  7  5 1 

L  =  1 

t=2; 

OCL 

N  =  *rTSMl5  * 

P=  7  52 

L  =1 

T=2; 

DCL 

N=*HYEC15* 

P  =  753 

L  =1 

t=2; 

OCL 

N=  *  AF  Q  T 1 5 * 

P  =  754 

L  =1 

t=2; 

DCL 

N  =  *  PG 1 5* 

P  =  755 

L  =  1 

t=2; 

DCL 

N  =  *D09 Y15  • 

P  =  756 

L  =1 

t=2; 

DCL 

N  =  *009  H15 * 

P  =  757 

L  =  1 

t  =  2; 

OCL 

N=  *008015  * 

P=  7  58 

L  =1 

t=2; 

DCL 

N  =  • MSI  5* 

P  =  759 

L  =1 

t=2; 

DCL 

N=*DEP$15* 

P  =  76  0 

L  =1 

t=2; 

OCL 

N=*SEX15* 

P=  761 

L  =  1 

T=2! 

DCL 

N  = • AF  QTG15* 

P  =  76  2 

L  =  1 

T=  2  • 

DCL 

M  =  *  E A  GE 15 * 

P  =  76  3 

L  =  1 

T=  25 

OCL 

N=*PAGE15* 

P  =  764 

L  =  1 

T=  25 

OCL 

N=*RTNEC15» 

P=  765 

L  =  7 

T=  6  5 

OCL 

N=*BASDY15* 

P-11 2 

L  =1 

T=2  5 

DCL 

N=*BASDM1 5* 

P-11  Z 

L  =  1 

T=  2  5 

OCL 

N“ *  BA  SDD 1 5  * 

P- 774 

L  =1 

T=25 

OCL 

N=«OOPGY15* 

P  =  7  75 

L  =  1 

T=  2  5 

DCL 

N  =  *00  D  GM  1 5  • 

P  =7  76 

L=1 

T=  2  5 

DCL 

M=*D0LEY15* 

P=  7  7  7 

L  =  1 

T=2! 
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DCL 

N  =  * DO  LEH 1 5  f 

P  =  778 

L  =1 

t=2; 

OCL 

n  =  »re;grsi5* 

P  =77  9 

L  =1 

T=  21 

DCL 

N=*yadty15* 

P  =  7  80 

L  =1 

T=2#* 

OCL 

N=*7IG15* 

P  =  78  1 

L=1 

T=  2  5 

OCL 

N  =  •VRRMIS  * 

P  =  73  2 

L  =1 

T=2? 

OCL 

N  =  *PR0PY15 • 

P=  7  8  3 

L  =1 

T=2; 

OCL 

N  =  *  SC  GR  PI  5  # 

P  =  78  A 

L  =1 

t=2; 

OCL 

N  =  •  RE  S  71  5  * 

P=  785 

L  =  16 

t=6; 

OCL 

N=  «E7S Y16  * 

P  =  8  0  1 

L  =  1 

t=  2; 

OCL 

N=»E7S916  • 

P  =  80  2 

L  =1 

T=2; 

OCL 

N=»HYEC16  * 

P  =8 0  3 

L  =  1 

t=2; 

DCL 

N  =  'APQT16 * 

P=  80  4 

L  =  1 

t=2; 

OCL 

N=«PG16* 

P  =  8  0  5 

L  =  1 

7=2? 

OCL 

N  =  *  009  Y16  # 

P  =  80  6 

L  =1 

r=2; 

OCL 

W=*D09*16  • 

P  =  80  7 

L  =  1 

t=2; 

OCL 

N  =  *009016  • 

P  =  808 

L  =1 

r=2; 

OCL 

N=  #MS 1 6 • 

P  =  809 

L  =  1 

r=2; 

OCL 

N  = •0E°S16  » 

P-813 

L  =1 

T=2  5 

OCL 

N=*SEX16» 

P  =  8 1 1 

L  =1 

t=2; 

OCL 

N=*AFG)7G16* 

°  =  0  1 2 

L  =1 

t  =  2; 

OCL 

n=  •fageig  • 

P  =  81  3 

L  =1 

r  =  2 ; 

OCL 

N=  *PAGE16 • 

P  =  814 

L  =1 

t=2; 

OCL 

H =*RTNEC 16* 

P  =  *15 

L  =  7 

t=6; 

OCL 

N  =  *8ASC)Y16* 

P  =  82  2 

L  =1 

t=2; 

OCL 

N  = *9ASOMl 6* 

P  - 82  3 

L  - 1 

t  =  2; 

OCL 

N=  •BASODIG • 

P  =  8  2  4 

L  =  1 

T=2? 

OCL 

N=*D0°GY16* 

P  =  825 

L  =  1 

t=2; 

OCL 

N  =  *OOPGMl  6* 

P  =  8  2  6 

L  =1 

T=  2  5 

OCL 

N=*OOLEYl 6» 

P  =  8  2  7 

L  =  1 

T=  2% 

OCL 

N=*D0LEM16* 

P  =  8  28 

L  =1 

T  =  2  5 

OCL 

N=  *  REG  R$ 1 6 • 

P  =829 

L  =1 

7=2? 

OCL 

N=* YAD7Y1 6* 

P  =  83  0 

L  =  1 

7  =  25 

OCL 

N  =  *7IG16' 

P  =  831 

L  =  1 

T=25 

DCL 

N  =  *VRR116  * 

P  =  832 

L  =  1 

T=  2; 

DCL 

N=*PR0PY16* 

P  =  833 

L=  1 

t=2  ; 

DCL 

M  = 1  SC GRP 16* 

P  =8  34 

L  =1 

T=  25 

DCL 

N=*RE3716« 

P  =  835 

L  =16 

T  =  6? 

DCL 

N  =  *E7SY17 • 

P  =  8  5 1 

L  =  1 

T=25 

DCL 

N  =  fE  T3M1 7 • 

P  =  8  5  2 

L  =  1 

t=2; 

DCL 

M=  'HYEC1  7  * 

P  =853 

L  =  1 

t=2; 

OCL 

N  =  *AFQTl  7  • 

P  =854 

L  =  1 

T=  2  5 

OCL 

N  =  *PG 1 7* 

P  =8  55 

L  =  1 

T=  2 » 

OCL 

N=#DO0Y17  * 

P  =85  6 

L  =1 

T=2? 

OCL 

*=•008*17  • 

P  =  857 

L  =  1 

T=2* 

OCL 

*=•009017  * 

P  =  858 

L  =1 

t  =  2; 

OCL 

*  =  *HS1  7* 

P  =  859 

L  =1 

t  =  2; 

DCL 

N=*DEPS17 * 

P  =  8  60 

L  =1 

t=2; 

DCL 

*  =  *SEX17» 

P  =  86 1 

L  =  1 

7=25 

OCL 

N=MFQ7S17» 

P  =  8  62 

L  =1 

T=2; 

OCL 

N  =  *EAGE1 7 • 

P  =  8  63 

L  =  1 

t  =  2; 

DCL 

N=»PAGE17  * 

P  =  86  4 

L  =1 

T  =  2  • 

DCL 

N=*RT*EC1 7  f 

P  =  865 

L=7 

T=  6; 

OCL 

N=*BASOYl 7* 

P  =  8  72 

L  =1 

T=  2  * 

OCL 

*=»8AS0*1 7* 

P  =  8  7  3 

L  =1 

t=2; 

OCL 

N=*9A$0D17* 

P  =  8  74 

L  =1 

T=2? 

DCL 

N=»D0PGY1 7» 

P=  8  7  5 

L  =1 

t=  2 ; 

OCL 

*  =  *  DO  P  GH 1  7* 

P  =  8  76 

L  =1 

t=2; 

OCL 

N 3 *DOLEY 1 7  f 

P  =  8  7  7 

L  =1 

T  =  2  5 

OCL 

N  = *00  LE* 1 7 • 

P  =  8  78 

L  =  1 

T=25 

DCL 

N=«REGR$1 7* 

P  =  8  7  9 

L  =1 

T=2? 

DCL 

*  =  •  YA0TY1 7 f 

P  =  880 

L  =  1 

t  =  2; 

OCL 

N=#7IS17* 

P  =  88  1 

L  =  1 

T=2i 

OCL 

N=fVRBM17  * 

P  =  88  2 

L  =  1 

T=  2 ; 

OCL 

N  =  f PR0PY1 7f 

P  =  883 

L  =1 

T=  2  i 

OCL 

*  =  •  SC  GRP1  7' 

P  =  884 

L  =  1 

r=2; 

OCL 

N=*REST17  * 

P  =  885 

L  =16 

T=6; 

OCL 

*=»ETS Y13 • 

P  =  90  1 

L  =1 

T=  2  i 

OCL 

N=*ETSH13 • 

P  =  902 

L  =1 

t=2; 

DCL 

*=  *HYEC18  * 

P=903 

L  =  1 

T=2i 

OCL 

*=  #AF  9T1Q * 

P=  90  4 

L  =1 

t=2; 

OCL 

N  =  *  PG 1 8 • 

P  =  905 

L  =  1 

t=2; 

OCL 

N  =  f 008  Y1 3  * 

P  =90  6 

L  =1 

7=2; 

DCL 

N  =  *00  9  HI  8  ■ 

P  =  90  7 

L  =  1 

t  =  2; 

DCL 

N  =  f D0BD1 8  * 

P  =  90  8 

L  =1 

7=2; 

OCL 

*=«MS18« 

P  =  9n  9 

L  =1 

t=2; 

DCL 

*  = f0E  P  S 13  * 

P  =  9 1 0 

L  =1 

t= 2 ; 

OCL 

*=  *SE  X  18  * 

P  =  911 

L  =1 

T=2? 

OCL 

*=*AFQTG18* 

P  =  912 

L  =1 

t=2; 
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DCL 

OCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

OCL 

OCL 

DCL 

OCL 

DCL 

OCL 

OCL 

DCL 

DCL 

DCL 

OCL 

OCL 

DCL 

DCL 

DCL 

OCL 

DCL 

DCL 

OCL 

DCL 

OCL 

OCL 

DCL 

DCL 

DCL 

OCL 

OCL 

DCL 

OCL 

DCL 

DCL 

DCL 

DCL 

OCL 

OCL 

DCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

DCL 

DCL 

DCL 

OCL 

OCL 

OCL 

OCL 

OCL 

OCL 

DCL 

DCL 

OCL 

DCL 

OCL 

DCL 


N  =  *EAGE18  * 
N=*PAGE19 • 
N=*RTNEC18* 
N=  •BASDY1 8* 
N=*BAS0M18* 
N=»BASDD18* 
N-»DOPGY10* 
M=«00PGM18* 
N=*00LEY18* 
N  = f OOLEM1 8  9 
*  RE  G  RS 1 8  f 
Nr*YADTY18« 
H=*TIG18* 

-  •  VR  R  M  18  * 
M=  *PR0PY18* 
M=#SCGRP18* 
N=»REST18  • 

N  =  *ETS  Y19  * 
N=*ETSH19 • 

N  =  *  HYE  C 1 9 • 

N  =  *  AF  Q  T  19  t 
N=*PG1 3* 

^  ' 0  03  Y19  • 

N  =  *00BH19  * 

M  =  *009019  * 
N=*HS19* 
n=»depsi9  • 

N  =  *SEX19» 
N=»AFQTG19« 
N=  *  E AG  E 1 9 * 

=  *PA  GE19  * 
N=*RTNEC19« 
N=»BAS0Y19» 
N  =  *8  A  SOMl 9  f 
N  =  *B A  SOD  1  9  * 
N=«D0PGY1 9* 
N  =  *0  3  PGM 1 9» 
N  =  •OOLEY 1 9  f 
N=*00LEM19» 
N=  fRE  GRSl 9f 
N-*YADTY19* 
N=*TIG19» 
N-f VR8M19 « 
M= ipR  OP Y1 9« 
N  =  * SCG  RP1 9 f 
N=»REST19  * 
N=  *ETS Y21 * 
N=*ETSM20  • 

N  = f  H YE  C20  • 

N  =  • AFQT20  • 

N  =  f PG20  * 
N=*OOR  Y20  • 

N  =  *00  8  M2  0  ■ 
N=fDOBD20  • 
M=«MS28  * 

N=  *  QE  P S20  • 
N=*SEX2"* 

N  =  • AF  QTG  2  0  • 
N=  #EAG E2 0  * 
N=*PAGE20  • 
N=»RTMFC20* 
N=*8ASDY20* 
M=*BASDM20» 
N=  *  BA  $002  0  * 
N=*DOPGY20» 
N=*OOPGM20  • 
N  =  *00L  E Y2  0  * 
N=  * 00 LrH 2 0  • 
M= ’ RE GRS2  0  f 
N=*YADTY20f 
N=*TIG23« 

N  = *VRBM23  1 
M=  #PR  0 PY2  0 f 
M  =  *  SCGRP20  • 
N= 1  RES  T20  • 
N=  * ETS  Y21  • 
N=*ETSM21  • 
N=fHYEC21 * 


P  =  91  3 
P  =  9  1  4 
P-915 
P  =  922 
P  = 923 
P  =  9  2  4 
P=925 
p  =  926 
P  =  9  2  7 
P-926 
P  -  929 
p  =  9  30 
p=931 
P  =  9  32 
P  =  933 
P  r  9  3  4 
P-935 
P-95 1 
P-952 
P=953 
P  -95  4 
P  -955 
P-956 
P-95  7 
P  -  9  5  0 
P  =  959 
P-960 
P  =  96  1 
P  =  962 
P  =  96  3 
P  = 964 
P  =  965 
P  =  9  72 
P  =9  7  3 
P  =  974 
P  =  9  75 
P  =  976 
P  =  9  7  7 
P  =  97  8 
P=9  7 9 
P  =  98  0 
P  =98  1 
P  =  98  2 
P  =  98  3 
°  =  984 
P=  90  5 
P  =  10H  1 
P  =  10  0  2 
P  =  1 0  0  3 
P  =  1 0  0  4 
P  =1  0  0  5 
P= 1 0  0  6 
P  =  1 0  0  7 
P= 1 0  0  8 
P  =  1 0  0  9 
P=1010 
P=1011 
P= 10 1 2 
P=1 0 1 3 
P= 1 0 1 4 
P=1 0 1 5 
P=1 022 
P  =  10  2  3 
P= 10  24 
P  =  10  25 
P= 10  26 
P  =  10  2  7 
P  =  10  28 
P  =  10  2  9 
P  =  10  3  0 
P  =  10  31 
P  =  10  32 
P=10 33 
P  =  10  34 
P  =  10  35 
P  =  1 0  5 1 
P  =  10  52 
P=1053 


L  =1 
L  =  1 
L  =  7 
L  =1 
L  =1 
L  =1 
L  =1 
L  =  1 
L  =  1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =  1 
L  =  1 
L  =  1 
L  =  16 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L=1 
L  =1 
L  =7 
L  =1 
L  =1 
L  =1 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =1 
L  =  1 
L  =1 
L  =  1 
L  =1 
L  =1 
L  =16 
L  =  1 
L=1 
L  =  1 
L  =  1 
L  =  1 
L=1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L=1 
L  =  7 
L  =  l 
L=  1 
L  =  1 
L=1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  1 
L  =  16 
L  =  1 
L  =  1 
L  =1 


T=2? 

t=2; 
t=6; 
t  =  2; 
t=  2; 
t=2; 
t=2; 
t=  2; 
t=2; 
t=2; 
t=2; 

T=  2  ? 
T=2? 
T=  25 
T  =  25 
T=25 
T  =  65 
T=  2  • 
T=  2  5 
T=25 
T=  25 
T  =  2  ? 
T=25 
T  =  2  5 
T=2i 
T=  2  5 
T  =  2  5 
T=25 
T  =  2  5 
T=2I 
T=  2  5 
T  =  65 
T=25 
T=  2  * 
T=  2  5 
T=  2  5 
T  =  2 1 
T=  2 1 
T=  2  ? 
T=  2  5 
T=  2  ? 
T=  2  5 
T=  25 
T=  2  * 

T  =  2; 

T  =  65 
T  =  25 
T  =2  5 
T=2I 
T  =  2  5 
T  =  2  5 
T  =  25 

r =2 1 

T  =2  { 
T  =2  5 
T  =2  5 
T  =2  j 
T  =  2  f 
T  =2  5 
T  =2  l 
T=65 
T  =2  5 
T=25 
T  =2  5 
T  =2  5 
T  =2  5 
T  =  2  5 
T  =  25 
T=2J 
T  =2  5 
T  =2  5 
T=2? 
T=25 
T=2I 
T=65 
T  =  2  ? 
T  =2  5 
T  -2  I 
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DCL 

N  = •  AF QT21  • 

P=1054 

L=1 

t =2 ; 

DC  L 

N  =  *  PG2 1  * 

P  =1 0  55 

L  =  1 

T=2  J 

OCL 

N  =  *DCH  Y21  • 

P  =  1 0  5  6 

L  =  1 

T  =2  t 

DCL 

N=*DOBM21 * 

P  =  1 0  5  7 

L  =  1 

T  =  2  i 

OCL 

N  =  •  03  B  0  21  * 

P=  1 0 58 

L  =  1 

T  =  2  J 

OCL 

Y=*HS21* 

P  - 1  0  5  9 

L=  1 

t=2  ; 

OCL 

N  =  *OEPS21  • 

P  =  1 0  6  0 

L=  1 

T=2  i 

OCL 

*4=  1  SC  X  21  * 

P=10€l 

L  =  1 

t  =2 ; 

OCL 

N=*AFQTG21* 

P  -  1 0  6  2 

L  =  1 

T  =2  \ 

DCl 

N=*EAGE21 * 

P=1063 

L  =  1 

t =2 ; 

DCL 

N=*°ASE21 * 

P= 1 0  6  4 

L  =1 

T  =  2  1 

DCL 

N=*RT^EC21* 

P=1065 

L  =  7 

t =6 ; 

OCL 

N=*8A30Y21 * 

P=10 72 

L  =  1 

T  =  2  » 

DCL 

X  =  *9ASD.M21  * 

P=10 73 

L  =  1 

r  -21 

OCL 

N  =  •  BAS0D21 * 

P=10 74 

L  =1 

r  =  2 ; 

OCL 

N=*10PGY21 * 

P=10 75 

L  =1 

t  =? ; 

DCL 

N=*00PGM21 • 

P  =  1 0  76 

L  =1 

T  =2  ! 

OCL 

N=*D0LEY21* 

P=10 77 

L -1 

T  =2  » 

DCL 

M  =  f DO  LEM  2 1  * 

P= 1 0  7  8 

L  =  1 

r -2 ; 

OCL 

**  =  *  RE  G  RS2  1  • 

P  =  1C 79 

L  =  1 

T  =  2  X 

OCL 

N= ,YADTY21t 

P  =  1 0  8  Q 

L  =  1 

T -2  1 

DCL 

N=*TIG21 • 

P  =  1 0  8  1 

L  =  1 

T  =  2 ; 

DCL 

N  =  *  VR9M21 * 

P-1082 

L  =  1 

T  =  2  » 

DCL 

N=  *P R0PY21  * 

P=1 083 

1=1 

T  =2  X 

OCL 

N= *  SCGRP21 * 

P=1084 

L  =1 

T  -  2 ; 

OCL 

N= ,R£ S  T21  • 

P  =  1 0  85 

L  =1  t 

T  =  6; 

DCL 

N=*ETS Y22  * 

P=1101 

L  =1 

t  =2 ; 

DCL 

N  =  *E  TS  H2  2  * 

P  =  1 102 

L  =  1 

T  =2  J 

DCL 

*7  =  *HYEC22* 

P=1103 

L  =  1 

t  =  2 ; 

DCL 

N= *  AF  3  T2  2  • 

P-1104 

L  =  1 

T  =2  ♦ 

OCL 

M  =  *PG2  2f 

P-1 105 

L  =  1 

t  =  2  ; 

DCL 

N  =  *009  Y22  * 

P-1106 

L  =  1 

t  =? ; 

OCL 

N=*D03H22  * 

P  =  110  7 

L  =  1 

t  =2 ; 

DCL 

N=  *039022  • 

P-1  108 

L  =  1 

t  =  2 ; 

DCL 

^ - *MS22* 

P-1109 

L  =  1 

r  =  2 » 

OCL 

N  =  *DE  °  S22 * 

P  =  ll 10 

L  =  1 

T  r  2 « 

OCL 

N=*$EX22  • 

P=llll 

L  =  1 

t  =  2 ; 

OCL 

N=*AFQTG22* 

P  =  ll  12 

L  =  1 

t=2  ; 

OCL 

V=*EAGE22  * 

P=1 113 

L  =  1 

t  =2 ; 

DCL 

N=  *  PA  GE22  * 

P=1114 

L  =  1 

T  =2  1 

DCL 

N=*RTNEC22* 

P=1115 

L=  7 

t  =6 ; 

DCL 

N- 'BAS0Y22* 

P=1 122 

L  =1 

T  =  2  * 

OCL 

N=*BA$0M22* 

P=1123 

L  =  1 

T  =2  • 

OCL 

N=*8ASDD22* 

P  =  1 124 

L  =  1 

T  =2  ? 

OCL 

N  = * 00PGY2  2* 

P= 1 1 25 

L  =  1 

t =2 ; 

DCL 

N  =  *00PGM22* 

P  =  1 126 

L  =1 

T  =  2  • 

OCL 

N  =  *  00LEY2  2* 

P=1127 

L  =1 

t  =2 ; 

DCL 

N=»03LEH22* 

P= 1 1 2  8 

L  =1 

T  =2  { 

OCL 

N=  *  RE  G  RS2  2* 

P=1129 

L  =  1 

T  =  2  * 

DCL 

N='YA0TY22* 

P  =  1 1 3  0 

L  =  1 

T  =  2 » 

DCL 

N=*TIG22* 

P=1 1 31 

L  =  1 

T  =  2 ; 

OCL 

N  =  • VR  9M22 » 

P= 1 1 32 

L  =  1 

f  -  2  { 

OCL 

N  =  *  PR0PY22* 

P -1 1 3  3 

L  =  1 

T=  2* 

OCL 

N=*$CGRP22» 

P=1 134 

L  =  1 

I  z  2 « 

OCL 

N=*RE$T22  * 

P=1 135 

L  =  1  i 

t=6  ; 

DCL 

8=  *ETS  Y23  * 

P= 1 151 

L=1 

r =2 ; 

OCL 

N=*ETSM23  • 

P=1 152 

L  =  1 

r=2? 
r  =2 ; 

OCL 

N  =  *HYEC23 • 

P= 1153 

L  =  1 

OCL 

N=*AFDT23* 

P=1 154 

L  =  1 

T  =2  S 

DCL 

N=*PG23* 

P=1 155 

L  =  1 

t  =2 ; 

OCL 

M  =  *  OOB  Y2  3  * 

P=1 156 

L  =1 

r  =  2; 

T  =2; 

OCL 

N=*D0BM23* 

P=1157 

L  =  1 

OCL 

N  =  *008023  • 

P=1 158 

L  =  1 

T  r  2  1 

DCL 

N=*B323* 

P=1 1 59 

L  =  1 

t=2; 

T=25 
t =2  i 

DCL 

N=*0EPS23  * 

P=1160 

L  =  1 

DCL 

N=*SEX23* 

P=1161 

L  =  1 

DCL 

N=*AFQTG23» 

P  =  1 162 

L  =  1 

L  =  1 

T=2? 

T  =2  # 

DCL 

N=*EAGE23  • 

*>  =  1163 

DCL 

N=*PAGE23  • 

P  =  1 1 6  4 

L=1 

T  -  p  • 

DCL 

N- »RTNEC2  3* 

P=1 1 65 

L  =  7 

T  =6  1 

1  =  21 
T=2? 

T  =  2? 

t  -  p  • 

DCL 

N=*BAS0Y23* 

P= 1 1 72 

L=1 

OCL 

N  =  *  BA  S0M23 • 

P=  1 1  7  3 

L=1 

DCL 

N=*8AS0D23* 

P= l 1 74 

L=1 

OCL 

N  =  *DOP  GY  23  * 

P=1 1 75 

L=1 

L  =  1 

OCL 

N 3  *00  P  GM  23 ♦ 

P= 1 1 76 

•  "C  1 

T=25 

r  —  p  • 

OCL 

N-*D0LrY23* 

P  =  1 17  7 

L  =  1 
L=1 
L=1 

OCL 

N=*OOLEK23* 

P=1 1 78 

r -pi 

OCL 

N=*REGR$23* 

P=1 179 

i  —  i 

r=2; 
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OCL 

Ns»YADTY23* 

psiieo 

L  =  1 

t  =  2; 

OCL 

Ns*TIG23* 

P= 1 1 8 1 

L  =  1 

t=2; 

OCL 

Ns* VR8M23 • 

P  s  1 1  8  2 

L  =  1 

T=2t 

OCL 

N=*PR0PY23* 

P=1 183 

Lsi 

T  =  2? 

OCL 

W - • SCGRP23* 

P-1184 

L  =  1 

T  s  2  1 

DCL 

R: ST23 * 

P=1185 

L  =  1  i 

t=6; 

OCL 

ns  *et  $  Y24  * 

Psl201 

L  =  1 

is2; 

DCL 

NS  *ETSM24  * 

Psl  20  2 

L  =1 

Ts2? 

OCL 

Ns  * HYE  C24 * 

Psl 20  3 

L  =  1 

t  =  2; 

OCL 

N  =  *  A  F  Q  T  24  • 

Psl 204 

L  si 

Ts25 

OCL 

N  =  'PG24* 

ps i 205 

L  =  1 

t  =  2; 

OCL 

Ns  *008 Y24  • 

P=1 206 

L  =1 

Ts2i 

OCL 

Ns*009M24  • 

Psl 20 7 

L=1 

T=2? 

DCL 

N  s  •  00  9  02  4  • 

P  =  1 20  9 

L  =  1 

T  =2i 

DCL 

N=*MS24* 

P  =  12n  9 

Lsl 

T  =  25 

OCL 

N s *0E  3  S24  ♦ 

Ps 1 2 1  0 

L  =  1 

i  =  2; 

OCL 

N=*3EX24* 

Ps 1 2 1  1 

L  =  1 

ts2; 

DCL 

N  s*  AFQ  TG24# 

P= 1 2 1 2 

Lsl 

T  S2  ; 

OCL 

N=*EAG£24* 

Ps 1 2 1 3 

Lsl 

r  s2 ; 

OCL 

Ns*PAGE24  • 

P  =  1  2 1  A 

Lsl 

T  =2  ? 

OCL 

Ns*RTNEC24* 

Ps 1 21 5 

L  =  7 

Ts6; 

OCL 

Ns*BASQY24* 

P  =  1 2  2  2 

L  =  1 

t  =  2; 

OCL 

Ns  *  3A  S  DM  2  4  * 

Ps  1 2  2  3 

Lsl 

ts2; 

OCL 

N=*BAS0024* 

Ps  1  2  2  4 

Lsl 

t=2; 

OCL 

N= *00DGY24  • 

Ps 1 2  25 

Lsl 

T  s2  ; 

OCL 

N  =  *  DO  P  GH  2  4  * 

Ps  1  2  2  6 

Lsl 

t  =  2; 

DCL 

N- *00L£Y24» 

P-1221 

Lsl 

T  =2  i 

OCL 

N-*OOLLM24* 

P  s 1 2  28 

Lsi 

T-2; 

OCL 

*REGRS24* 

p  s  1 2  2  9 

L  =  1 

T -2; 

OCL 

Ns*YA0TY24* 

P  s  1  2  3^ 

Lsl 

t  =  2; 

DCL 

N=*TIG24* 

P  s  1  2  3 1 

L  =  1 

T  =2  i 

OCL 

*VRBM24 * 

Ps  1  2  3  2 

Lsl 

Ts2; 

OCL 

Ns*0ROPY24* 

P  s  1  2  3  3 

L  s  t 

t-2; 

DCL 

Ns*SCGRP2  4f 

Ps 1 2  3  4 

Lsl 

T=2i 

DCL 

N=*RE3T24  * 

P  s  1  2  35 

Lsl  £ 

TS&; 

DCL 

N=*ETSY25* 

Ps 1 25 1 

Lsl 

Ts2? 

DCL 

Ns*£T3M25  * 

P=1252 

L  =  1 

Ts2; 

OCL 

*HYEC25 • 

P= 1 253 

Lsl 

ts2; 

OCL 

Ns  *  AF0T25 * 

P  s 1 25  4 

L  =1 

T  s  2  ? 

OCL 

N=*PG25* 

Ps 1 255 

L  =  1 

t  =2; 

OCL 

Ns  *  Q09  Y  25 • 

P  =  1 25  6 

L  =1 

TS2; 

DCL 

N=  *00  BM25 • 

P s 1 25  7 

Lsl 

T  s  2 ; 

OCL 

N  =  *  009  025  • 

P=1258 

L=1 

Ts2; 

OCL 

Ns*MS25* 

P=1259 

L  =  1 

t  =  2; 

DCL 

Ns*3EPS25  • 

P  =  1 26  0 

L  =  1 

t=2; 

OCL 

N=  *  SE  X  25  * 

P= 1 26 1 

L  =  1 

t=2; 

OCL 

Ns*AFQTG25* 

Ps 1 26  2 

Lsl 

T  =2  1 

OCL 

N - *E AGE25  • 

P=1263 

L  =  1 

T  =  2  » 

OCL 

N - *PA  GE25 * 

P  =  1 2  6  4 

L  =  1 

t=2; 

OCL 

N=*RTNEC25* 

P= 1 265 

L  =  7 

t-6; 

OCL 

Ms*BAS0Y25* 

Psl 272 

L=l 

Ts2; 

OCL 

Ns* 8A SOM 25* 

Ps 1 2  7  3 

Lsl 

ts2; 

DCL 

Ns*9AS0025* 

P  s  1  2  7  4 

L=1 

Ts2; 

DCL 

N  = *D3PGY25  • 

Ps 1 2  75 

L=1 

Ts2{ 

DCL 

Ns  * 00  P  GM  2  5  * 

Ps 1276 

L  =  1 

ts2; 

DCL 

Ns*00LEY25* 

P  =  1  2  7  7 

Lsl 

t=2; 

OCL 

N  =  *  DO  LEM  25  * 

P= 1 27  fi 

L  =  1 

T  S2; 

OCL 

Ns  *  REG  9S25  * 

P  =  1 2  7  9 

Lsl 

t  s  2 ; 

OCL 

M  s* YAO  TY25 * 

Ps  1  2  8  0 

L=1 

t  =  2; 

OCL 

N  =  *  TI G  25 • 

P=128 1 

L  =  1 

t=2; 

OCL 

N  = *  VR  9  M25  • 

P= 1 28  2 

L  =  1 

ts2; 

DCL 

Ns  *PR0PY25  * 

P=1 283 

L  =1 

t  =  2; 

OCL 

Ns*s:GRP25* 

P  =  1 2  8  4 

L  =  1 

T  s  2  I 

DCL 

N  =  *  RE  S  T25 * 

Ps 1285 

L=1  i 

Ts6? 

OCL 

N=*ETSY26  * 

P= 1 30  1 

Lsl 

T  =2  J 

OCL 

Ns  *ET3M26  • 

P  =  1 30  2 

L  =  1 

Ts25 

DCL 

Ns*HYEC26  * 

Ps 1 3 0  3 

L  =  1 

Ts25 

OCL 

N=* AFQT26 * 

P=1 304 

Lsl 

T=2? 

DCL 

Ns  *PG26* 

P=1 305 

Lsl 

t  =  2 ; 

OCL 

N=  *009  Y26  • 

P  =  1 30  6 

Lsl 

T  s  2 1 

DCL 

N=  *009  M26 * 

P= 1 307 

Lsl 

T  =  2  ? 

OCL 

Ns  *r)OB  026  • 

P= 1 3^  8 

L=1 

t =2 ; 

OCL 

H s  1  MS  2  6  * 

P  =  1 30  9 

L  =  1 

T  =  2  5 

OCL 

Ns  *0E  PS26  • 

P= 1 31 0 

L  =  1 

Ts2; 

OCL 

Ns  *  SE  X  26* 

P  =  1 31 1 

L  =  1 

t=2; 

DCL 

N=*AFQTG26* 

P=1 31 2 

L  =  1 

T=2i 

OCL 

N  =  *E A  GE26 • 

P=l 31 3 

Lsl 

T=2i 

OCL 

N  s  *P A  GE2S » 

P  =  1  3 1  4 

L  =  1 

T  s  2  5 
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DCL 

N  =  *RTNEC  2  6  * 

P=1 315 

L=7 

t=s; 

DCL 

N=*0ASOY26* 

P  =  1 32  2 

L  =  1 

T  =  2  l 

OCL 

N= • 8 A  SDH2 6 ' 

P=1 323 

L  =  1 

T=21 

OCL 

M  =  • 0A  S  DD2  6  * 

P=1 324 

L  =  1 

T  =  2? 

OCL 

N= • DO  P  GY2  6 • 

P  =1 325 

L  =  1 

T  =2  | 

DCL 

N  =  *DD  PGM26  # 

P  =  1 32  6 

L=1 

T  =2  { 

DCL 

N  =  *00 LE  Y2 6  • 

P=1 327 

L  =  1 

T  =  2? 

DCL 

N=*D0LEM26* 

P=1 32  8 

L=1 

T  =  2? 

OCL 

N=*REGRS26* 
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•  2 

9  7  9  f  •  99  *  )  ; 

T I  GO  6 

TO 

R  <  0  5  27 

v  2 

i7m'99'){ 

WRBM06 

TO 

« ( 0529 

v  2 

•  79  9*  99  •  >  ; 

PR  OP  Y  06 

TO 

R  (0531 

•  2 

SC  GR  P  06 

TO 

R (0533 

•  2 

,  7t  ,*  99*  >  i 

RE  S  T  0  6 

TO  R <  0  53  5  § 

16*6) » 

ETSYO  7 

TO 

R (0551 

•  2 

t  7*  •  • 99*  > ; 

FTSM07 

TO 

R (0  553 

v  2 

•79#«99*) { 

HYECOT 

TO 

R ( 0555 

f  2 

AFQT07 

TO 

R ( 0  557 

f2 

f  7  9  9  *  99  •  )  ♦ 

PG0  7 

TO 

R (0559 

«  2 

•  799* 99*  )  i 

DOB Y  0  7 

TO 

R ( 0 561 

92 

•  7##*  99*  )  ; 

DO8M0  7 

TO 

RCO 563 

92 

»7lf*99Mi 

DOBD07 

TO 

R (0  565 

9  2 

•7, 9*99* > ; 

HS07 

TO 

R (0567 

92 

9799*99*)  ; 

OEPS07 

TO 

R (0 569 

92 

•  7  9  9  *  99  *  )  ; 

SEKO  7 

TO 

R  (0571 

9  1 

•799*9*  It 

AFQTG07 

TO 

R<0  5T2 

92 

•  7f  t*  99*  )  t 

CAGE  07 

TO 

R  (  0  5  74 

9  2 

9  7f  9  *  99*  )  ; 

PAGE  0  7 

TO 

R  (  0  5  76 

92 

•  7  9  9  *  99  *  >; 

RTNEC07 

TO 

R  (  0  5  7ft 

9  7 

•  6 ) ; 

BAS0Y07 

TO 

R (0595 

9  2 

•  7f  9*  99*  >  ? 

8ASDM07 

TO 

R (  0  58 7 

92 

•  7#  t  *99*  )  ; 

BASOD07 

TO 

R (0589 

9  2 

•7*9*99*); 

OOPG Y07 

TO 

R (0591 

92 

•  7f  •• 99*  )  ; 

DOPGM07 

TO 

R (0593 

92 

•799*99*); 

DOLE  Y  0  7 

TO 

R  <0595 

9  2 

t  7i .*  99*  )  ; 

DOLEH07 

TO 

RC0597 

9  2 

9  7  *  9  *  99  *  >; 

REGRS07 

TO 

R  <0599 

9  1 

9  7  9  9  *  9*  >; 

YADTYOr 

TO 

R (0600 

92 

*7#  **  99*  )  ? 

TIGO  7 

TO 

R ( 0602 

92 

*7*  *  *  99* ) ; 

VRBM07 

TO 

R  (  0  6  0  4 

9  2 

*  7*  * • 99*  >  ; 

PROP  Y  0  7 

TO 

R  ( 0  6  06 

92 

*7*  *• 99*  )  ; 

SC  GR  PQ  7 
REST 0  7 

TO  R  (0608 ,2 
TO  R< 1610* 

*7*  **99*  >; 
16*6) ; 

,7*  *»99* ) ; 

ETSY08 

TO 

R (0626 

•  2 

ETSM08 

TO 

RC0628 

92 

*7* **99*) ; 

HYEC08 

TO 

R  (  0  6  30 

92 

*7* ,*  99*  )  ; 

AFQT08 

TO 

RC0632 

92 

*7tf*  99*  )  ; 

PGOB 

TO 

R  (  0  6  34 

92 

*7*  * • 99  •  )  J 

DOB Y  0  8 

TO 

R (0636 

92 

*7***99*H 

DOBM  08 

TO 

R (0633 

«2 

*  7  *  *  *  99  »)  ; 

DOB  0  0  8 

TO 

R  (  0  6  4  J 

92 

*7*  *• 99* )  { 

HS0  3 

TO 

R  <0642 

92 

•7*, *99*) 5 

DEPS08 

TO 

R (0644 

92 

*7,, *99*) ; 

SEXOft 

TO 

R (0646 

9  1 

•  7***9*  >; 

AFQTG08 

TO 

R (0647 

9  2 

*7*  ••  99*  )  ; 

EAGE08 

ro 

R ( 0  6  49 

92 

,7***99*)  ; 

PA6E08 

TO 

R  (  0  6  5 1 

9  2 

*7*  9*99*  )  ; 

RTNEC  08 

TO 

R ( 0  6  53 

t  7 

•  61) 

BAS  0  Y  08 

TO 

R  <  0  6  60 

92 

•  7t  t*99* ) 5 

BASOH08 

TO 

R( 0662 

1 2 

•  7#9*99*>  ) 

BASD008 

TO 

R  <  0  664 

«  2 

•799*99*); 

D0PGY08 

TO 

R  (0666 

«  2 

•7f •• 99* ) 5 

DOPGM09 

TO 

R  <  0  6  69 

92 

*7lf*99*); 

DOLE Y08 

TO 

RC0673 

92 

•  7, i*  99*  )  ; 

DOLE  NOS 

TO 

RC0  672 

«  2 

f7*  **99*  )  1 

REGRS08 

TO 

R  <06  74 

9  1 

* 7 * •  •  9 * ); 

TAOTYOS 

TO 

R  ( 0  6  75 

92 

t7*t*99*>; 
*7*9*99*) 5 

TIG08 

TO 

R  (  0  6  77 

9  2 

VR8MQ  8 

TO 

RC0679 

«  2 

•7*9* 99*) ; 

PROP Y  08 

TO 

R (0681 

f2 

•799*99*); 

SC6RP03 

TO 

R ( 0  683 

»2 

*7*9*99*)  5 
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EX  FE  CODE  CNA 


REST  0  8 

TO  R(06R5»16 

6> ; 

ETSY09 

TO 

RC0701 

•  2  i7 

t*  99 

> ; 

ET  S  i  09 

TO 

R  (  0  7  0  3 

t  2  »  7 

9*  99 

> ; 

HYEC09 

TO 

R (07  OS 

*  2  1 7 

9  *99 

> ; 

AFQT09 

TO 

R (0 10 7 

t  2  t  7 

9*  99 

>  i 

PG09 

TO 

Rf 0709 

•  2  t7 

*•  99 

> ; 

009 Y  0  9 

TJ 

RC0711 

1 2  i  7 

9  *  99 

) ; 

DOB  MO  9 

TO 

9(0713 

1 2  *  7 

9*  99 

> ; 

OOBJ09 

TO 

9(0715 

1 2  t  7 

9*  99 

>  $ 

HS  09 

TO 

P  (07  17 

1 2  t  7 

9*99 

>; 

DEPS09 

TO 

R( 0719 

1 2  »  7 

9*  99 

> ; 

SEX0  9 

TO 

R  (  0  7  2 1 

»1  »7 

9*9* 

; 

AFQTG09 

TO 

R  <  0  7  22 

9  2  ?  7 

9  *  99 

> ; 

EAGE09 

TO 

R ( 0724 

»2  t  7 

f*99 

) ; 

PAGE09 

TO 

R (0726 

•  2.7 

t*99 

) ; 

RTNEC09 

TO 

R <  0  728 

♦7.6J ; 

BASOY09 

TO 

R  (  0  7  3^ 

1 2  t  7 

9*99 

> ; 

BASOM09 

TO 

9  (0737 

1 2  t  7 

9*99 

> ; 

BA  SOD  09 

TO 

R  (0739 

t  2  i  7 

**  99 

> ; 

OOP  G  Y  09 

ro 

R("74l 

1 2  »  7 

f*  99 

> ; 

00 PGM  09 

ro 

R ( 0743 

1 2  *  7 

9*99 

> ; 

DOLE  Y  09 

ro 

R <0745 

*  2  «  7 

9*  99 

> ; 

OOLEH09 

TO 

R (0747 

t  2  ♦  7 

9*  59 

) ; 

REGRS09 

TO 

R  (  0  7  4  9 

tl  #7 

9*9* 

5 

YAOTY09 

TO 

9 (0750 

1 2  *  7 

9*  99 

i ; 

TTG39 

TO 

R  (0752 

%2  «  7 

9*99 

> ; 

VRBM09 

TO 

R  (0754 

#2  t  7 

9*  59 

) ; 

PR  QP  Y  09 

TO 

R (0756 

t2  i  7 

9*99 

) ; 

SCGRP09 

TO 

*<0759 

•  2  •  7 

9 ' 99 

> ; 

REST09 

TO  R  (  0  76 

0  «  1  6 

6) ; 

ETSY10 

TO 

R  <0  7  76 

♦  2  f  7 

9  *  59 

> ; 

ETSM10 

TO 

R  (  0  7  78 

*2  i  7 

9*  99 

> ; 

HYEC10 

TO 

R  (  0  7fl  0 

•  2  i  7 

9*99 

> ; 

AFQT10 

TO 

R  <0  782 

1 2  t  7 

9*99 

> ; 

PG  10 

TO 

R  (0784 

1 2  t  7 

9*  99 

> ; 

DO0Y1O 

TO 

R ( 0  786 

v  2  f  7 

9*99 

> ; 

OOBMIO 

TO 

R<  0  1  89 

»2  *  7 

9*99 

> ; 

OOBDIO 

TO 

R  (  0  7  90 

*2  9  7 

9  •  99 

> ; 

NS  10 

TO 

R  (  n  7  92 

1 2  9  7 

9  •  99 

) ; 

OEPSIO 

TO 

R  <  0  79  4 

92  9  7 

9*  99 

> ; 

SEX10 

TO 

R  <  0  7  9  6 

tl  97 

9*9* 

; 

AFQT610 

TO 

R  (  0  7  9  7 

t2t7 

9*  99 

> ; 

EAGE10 

TO 

R (0799 

9  2  9  7 

9*99 

) ; 

PAGE  1 0 

TO 

R  (  0  8  0  1 

9  2  9  ? 

9' 99 

> ; 

RTNEC10 

TO 

R(  03  03 

«796 

5 

BA  SO  Y 10 

TO 

*<0810 

t2t7 

9*  99 

> ; 

BASDM10 

TO 

R (0812 

9  2  9  7 

f*99 

)  • 

BAS0D10 

TO 

R  (0814 

t2  t7 

t*99 

> ; 

D0PSY1Q 

TO 

R (08  16 

9  2  9  7 

,*  99 

>  $ 

OOPGHIO 

TO 

*(0819 

9  2  9  7 

9*99 

)  ; 

DOLE  Y  10 

TO 

R (  08  20 

9  2  9  7 

f*99 

> ; 

00  LEM  10 

TO 

R (0922 

9  2  9  7 

9*  99 

> ; 

REGRS10 

TO 

R  (  0824 

tl  t  7 

9*9* 

; 

YADTY10 

TO 

R  (0825 

1 2  9  7 

9*99 

> ; 

TI  G 1  0 

TO 

R(08  27 

9  2  9  7 

9*99 

)  s 

VR8M10 

TO 

R  <  0  8  29 

9  2  •  7 

9*59 

> ; 

PROPYIO 

TO 

RC0831 

9  2  9  7 

9*99 

> ; 

SCGRP10 

TO 

R ( 0  8  33  «  2  «  7 

9*  99 

> ; 

REST l 0 

TO  R(0835tl6 

6)  J 

ETSY11 

TO 

R  <  0  8  51 

t2  9  7 

9 '99 

> ; 

ETSM11 

TO 

R  (  0  8  53 

9  2  9  7 

9*  99 

> ; 

HYEC11 

TO 

R ( 0  8  55 

9  2  9  7 

9*  99 

> ; 

AFQT11 

TO 

R ( 0  8  57 

92f  7 

9*99 

> ; 

PG  1 1 

TO 

R (0859 

9  2  9  7 

9*99 

> ; 

DOB Y 1 t 

TO 

R  (0361 

t2  t7 

t*  99 

) ; 

DOB  Mil 

TO 

R  (  0  8  63 

t2v7 

f*99 

> ; 

D0B011 

TO 

R  (  0  9  65 

t2  9  7 

9*99 

) ; 

MS  1 1 

TO 

R ( 0 9  67 

9  2  9  7 

t*99 

>5 

OEPSU 

TO 

R (0869 

9  2  9  7 

9*  99 

1 1 

SEX11 

TO 

R  (  0  8  71 

tl  t7 

9*9* 

5 

AFQTG11 

TO 

R  (  0  8  72 

#2f7 

9*  99 

) ; 

EAGE11 

TO 

R (08  74 

9  2  9  7 

9*  99 

>  < 

PAGE  1 1 

TO 

R  <08  76 

9  2  9  7 

.*99 

> ; 

RTNECll 

TO 

R  <  08  79 

97  96 

s 

* 

BASDY11 

TO 

RC0885 

9  2  9  7 

9*  99 

) ; 

9ASDM11 

TO 

RC98B7 

t2t7 

9*99 

> ; 

BASDD11 

TO 

R  (0889 

t297 

9*99 

> ; 

DOPGYU 

TO 

R (0891 

9  2  9  7 

9*99 

) ; 
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CXFCCOOE  CNA 


OOPGH11 

TO 

R (0993 

»  2 

79 

9*99*  >  i 

DOLE  Y1 1 

TO 

R  (0  8  95 

f  2 

7V 

f • 99*  > ; 

OOLEH11 

TO 

R<0897 

9  2 

7  9 

9*99*) « 

REGRS11 

TO 

R (0899 

fl 

79 

9*  9*  >5 

YAOTY11 

TO 

R <0^0? 

«  2 

7  9 

9*  99*  )  i 

TIG11 

TO 

R  (09  02 

f  2 

7  9 

9*  89m  ; 

VR  9*1 1 1 

TO 

R (0904 

92 

7  « 

9*99*); 

PROP  Y 1 1 

TO 

R (0908 

92 

79 

9*  99*  )  i 

SCGRP11 

TO 

R (0909 

92 

7  9 

f*99* ) ; 

RES  T  1 1 

TO  RC  091 0* 

69 

6) ; 

ETSY12 

TO 

R (  0 9  26 

92 

7  9 

9*  99*  > ; 

ETSM12 

TO 

R  (  Q  9  23 

92 

7  9 

9f99*> ; 

HYEC12 

TO 

R (09  30 

92 

79 

9*99*) ; 

AFQT12 

TO 

R  <0932 

92 

79 

9*99*  > ; 

PG 1 2 

TO 

R  <  0  9  34 

92 

7  9 

9*99* ) ; 

009  Y 1 2 

TO 

R  <  0  9  36 

«  2 

7  9 

9*  99*  )  ; 

00BM12 

TO 

R  <  0  9  38 

92 

79 

9*  99*  >  1 

D0BD12 

TO 

9 ( 0940 

92 

79 

9*99*); 

HS12 

TO 

9(0942 

92 

79 

9*  99*  > ; 

0EPS12 

TO 

R  <  09  4  4 

f2 

79 

9*99*  > ; 

SE  K 1  2 

TO 

R (09  46 

9  1 

7  9 

9*9*  > ; 

AFQTG12 

TO 

9(0947 

92 

7  9 

9*99*); 

EASE  1 2 

TO 

P  (0949 

«  2 

7  9 

9*99*) ; 

PAGE12 

TO 

R ( 0951 

92 

7. 

•  *  99*  )  l 

RTNEC12 

TO 

R  <  0 9 53 

9  7 

6)1 

0ASOY12 

TO 

9(0960 

92 

7  9 

9*99*  ) ; 

BASDM12 

TO 

R  (0962 

92 

7  9 

9*99*  > ; 

BAS0D12 

TO 

R ( 0  9  64 

92 

79 

9*99* ) ; 

OOPG Y12 

TO 

R (0966 

9  2 

7. 

9*  99*  )  i 

D0PGM12 

TO 

R  (  0  9  69 

92 

7  9 

9*  99*  )  ; 

DOLE  Y12 

TO 

R (0970 

92 

7  9 

9*  99* ) ; 

00LEHX2 

TO 

R (09  72 

92 

7  9 

9*  99* ) ; 

REGRS12 

TO 

R<  09  74 

9  1 

79 

9*9*  )J 

YA0TY12 

TO 

9  (09  75 

92 

7  9 

9*99*  )  1 

TIG12 

TO 

9(0977 

92 

79 

f*99*); 

VRBM12 

TO 

9(09  79 

92 

79 

9*99*); 

PROP Y 1 2 

TO 

R  (  0  9  8  1 

t2 

7, 

9*  99*  > ; 

SCGRP12 

TO 

9(0983 

«  2 

7  9 

9*99* ) ; 

REST12 

TO  R(0985t 

6  9 

6  )  ♦ 

ETSY13 

TO 

R (10  01 

92 

7  9 

9  •  99  * ) ; 

ETS  4 1 3 

TO 

R<10  03 

92 

79 

9 »  99  • ) ; 

HYEC13 

TO 

R (13  05 

92 

79 

9*  99  ■  )  i 

AFQT13 

TO 

R (10  07 

92 

7  9 

9*99*  )  5 

PG  13 

TO 

R <1009 

92 

79 

9*99* ) ; 

OO0Y13 

TO 

R (10 11 

92 

7  9 

#*99* ) ; 

009413 

TO 

R(10 13 

92 

79 

9*99* ) ; 

D0BD13 

TO 

RC10 15 

92 

7  9 

9*99  •) ; 

MS13 

TO 

R ( 10 17 

92 

79 

9*  99*  i ; 

0EPS13 

TO 

R (10 19 

9  2 

79 

9*  99* ) ; 

SEX13 

TO 

R  (  1 0  21 

9  1 

7  f 

9* 9*  ) ; 

AFQTG13 

TO 

R  (1022 

9  2 

79 

9*99*  >  ? 

EASE  1 3 

TO 

R  (  1 0  24 

92 

79 

t *  99*  > ; 

PAGE13 

TO 

R ( 1 0  26 

92 

79 

9*  99  • ) ; 

RTNEC13 

TO 

R(10  23 

97 

6) 

; 

BAS0Y13 

TO 

R (10  35 

92 

79 

9*  99*  M 

BAS0413 

TO 

R (10  37 

92 

79 

9*99*)  5 

BASDD13 

TO 

R( 10  39 

92 

79 

9*99* ) ; 

D0PGY13 

TO 

R  (  1 0  4  1 

92 

79 

t • 99*  1  5 

OOPG  H 1 3 

TO 

R  ( 1 0  4  3 

92 

7  9 

f*99») ; 

DOLE  Y 13 

TO 

R  (1045 

92 

79 

9  *  99  *  1 ; 

00LEH13 

TO 

R (1047 

92 

7, 

9*99*); 

RE6RS13 

TO 

9(1049 

9  1 

79 

9*  9*  )  J 

YA0TY13 

TO 

R ( 10  50 

92 

7  9 

9*99*)  J 

TIG13 

TO 

9 (10  52 

92 

7  9 

9*99*); 

VRBM13 

TO 

R  (10  54 

•  2 

7  9 

9*99*)! 

PR  OP  Y 13 

TO 

R  (1056 

9  2 

7  9 

9*  99* )  ; 

SCGRP13 

TO 

R (10  5? 

•  2 

7  9 

9*99*)  ? 

REST  1 3 

TO  R ( 1 0  6  U  t 

69 

6) ; 

ETSY14 

TO 

R  (10  76 

92 

79 

t  *  99  * ) ; 

ETS414 

TO 

R (10  79 

92 

79 

9*99  *  >  1 

HYEC14 

TO 

R ( 1 0  80 

f  2 

7  9 

9* 99*  > ; 

AFGT14 

TO 

R (10  82 

92 

7  9 

9»99*M 

PG  1 4 

TO 

R ( 10 84 

92 

7  9 

9*  99*  11 

D0BY14 

TO 

9 (10  86 

92 

7  9 

*• 99*  > ; 

D0BM14 

TO 

R(10  09 

92 

79 

t *99*)  S 

0090 1 4 

TO 

R ( 1 0  90 

92 

7  9 

t*99*  > ; 

MS  14 

TO 

R  (  1 0  9  2 

92 

79 

9*99»H 

DEPS14 

TO 

R ( 1 0  94 

92 

7  9 

9*  99  *  1 ; 
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EX  Ft  CODE  CNA 


SE  X 1 4 

AFQTG14 

EAGE  1  4 

PAGE14 

RTNEC14 

8AS0Y14 

BA  SO  H 14 

BA  SO  D  14 

OOPGY14 

OOPGH14 

OOLE Y14 

DOL~  M14 

REGRS14 

Y  AO  T  Y  14 

TIG14 

VRBM14 

PR  OP  Y  1 4 

SCGRP14 

REST  14 

ETSY15 

ETSM15 

HYEC15 

AFQT15 

PG15 

00BY15 

OOBM15 

0090  15 

MS  1 5 

OE  PS  15 

SEX15 

*F  QTG  15 

EAGE15 

PAGE  15 

RTNEC  15 

BAS0Y15 

8A  SO  Ml  5 

8A  SOD  1 5 

00PGY15 

OOPGM15 

OOLE Y15 

D0LEM15 

REGRS15 

YADTY15 

TIG15 

VRBM15 

PROP Y 15 

SCGRP15 

REST  1 5 

ETSY16 

ETSM16 

HYEC16 

AFQT16 

PG1 6 

D0BY16 

00BM16 

DOBO 16 

MS  16 

OE  PS  16 

SEX16 

AFQTG16 

EAGE16 

PAGE  16 

RTNEC 16 

BASDY16 

BASDM16 

BASD016 

00PGY16 

00PGM16 

OOLE Y16 

00LEM16 

REGRS16 

YADTY16 

TIG16 

VR9N16 

PROP Y 16 

SCGRP16 

REST  16 

ETSY17 


TO  R (10  96  v 1 
^0  R<  13  97,2 
TO  R ( 1 0 99,2 
TO  R (11 01  ,2 
TO  R  <1103  ,7 
TO  9(1113,2 
TO  R(ll  12,2 
TO  R(1114,2 
TO  9 (1116,2 
TO  R  (  1 1 18 , 2 
TJ  0  (  11  23  ,2 
TO  R ( 1 1 2 2  ,2 
TO  R (1124,1 
TO  R (1125  ,2 
TO  Relief  ,2 
TO  9(1129,2 
TO  5 (11 31  ,2  ,  . 
TO  9(1133.2,7 
TO  R< 1135,16 


TO 
T  0 
TO 
TO 
TO 
TJ 


TO 

TO 

TO 

TO 

TO 


IU  m  113  3, 

TO  9(1151 ,2 
TO  9(1153 ,2 
9(1155  ,2 
*(1157.2 
R ( 1 1 59 , 2 
9(1161,2 
9(1163,2 
*(1165,2 
TO  R( 11 67,2 
TO  R(ll 69,2 
TO  R (11 71  .  1 
TO  R  (11  72  ,2 
R( 11 74  ,2 
R (11 76, 2 
R (11 78  ,7 
9(1185.2 
9(1187,2 
TO  R  (  1 1  9 9  ,2 
TO  R  (1191 ,2 
TO  9(1193 ,2 
TO  9(1195,2 
TO  R (11 R7 ,2 
TO  9 (11 99,1 
TO  R (1  200 ,2 
TO  9(1202,2 
TO  9(1204,2 
TO  9  (12  06,2  ,  . 

TO  9  <1208 ,2,7 
TO  90210,16 
TO  9(1226,2 
9  ( 1 2  2B  ,  2 
9  (12  30  ,2 
9(1232  ,2 
9(1234,2 
9(1236,2 
9  (  12  38  ,2 
9(1240,2 
i  u  9(1242,2 
TO  R ( 1244  ,2 
TO  RC1246.1 
TO  R (1247,2 
TO  9  (1249,2 
TO  9(1251,2 
TO  9  (1253  ,7 
TO  R ( 1 2  63  ,2 
TO  9(1262,2 
TO  9(  12  64,2 
TO  9(1266,2 
TO  9 (1265  ,2 
TO  R  (1270  ,2.7,  .  *  99  •  >  J 
TO  R(1272,2,7,,’99*>  i 
TO  R(1274fl,7f,,9f M 
TO  9(1275,2,7, ,*99* >; 
TO  9  (1277,2.7,,  *  99 • > 5 
TO  R<1279,2,7,.«99«U 
TO  9  (1281  ,2,7,,*99*H 
TO  9  (1283  ,2, 7, ,'99*); 

TO  9(1285.16,6); 

TO  R  < 1 3  01  ,2, 7,.* 99*)  ; 


TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 


7  t  , 
7  »  . 
7,. 
7.  . 

e  >; 

7  t  , 

7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


)  ! 


7 
7 
7 
7 
7 
7 

7  w  „ 

l\\ 

ill 

7.  , 

7., 

7., 

7., 


9*  M 
99* ) ; 
99  • ) ; 
99  •  I  i 

99*  > ; 
99*  I  i 
99*  > ; 

99  • ) ; 

99  * ) ; 
99  • ) ; 
99*  > ; 
9*  >; 
99*  > ; 
99  •  )  5 
99  *  )  J 
99*  > ; 
99* ) ; 


99* ) ; 

99*  )  i 
99  •> ; 
99  • ) ; 
99*  > ; 
99* ) ; 

99  * ) ; 

99*  > ; 
99*  )  i 
99  « > ; 
9*  >; 
99* ) ; 
99*  > ; 
99  *  )  I 

so*  > ; 

99*  )  i 
99* ) ; 

99* ) ; 

99* )  ; 
99  *) ; 
99*  )  ; 
9*  >; 
99*  > ; 

99*  > ; 

99* ) ; 
99* ) ; 
£*99* ) ; 

99  •  )  I 
99* ) ; 
99* ) ; 
99*  > ; 
99  '  )  J 
99  •  I ; 
99*  > ; 
99  • ) ; 
99*  )  J 
99*  )  5 
9*  >; 
99*  > ; 
99  »  )  I 
99*  >? 

99* ) ; 
99*  > ; 
99* ) ; 

99* ) ; 

99  ♦  > ; 

99*  )  ? 
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EXFECOOC  CNA 


ETSH17 

TO 

R  (  1 3  03  1 2 

7  *  * ' 99 •  )  t 

HYEC17 

TO 

R  <  1 3  0 5 ,2 

7, ,*99*  >  | 

AFQT17 

TO 

R<1307,2 

7  » , *  99  •  )  1 

PG17 

TO 

R  <1309,2 

7, , ■ 99  *  )  ; 

00BY17 

TO 

R  <1311  ,2 

7 , , *  99  *  )  ; 

DOBH17 

TO 

R  <1313,2 

7, ,»  99*  > ; 

00BD17 

TO 

R<1315,2 

7,,*  99*  > ; 

MS  17 

TO 

R  <1317  ,2 

7  * , *  99 •  )  ; 

DEPS17 

TO 

R  <1319,2 

7*i»99M; 

SEA17 

TO 

R ( 1 321  1 1 

7*,*9»  i; 

AFGTG17 

TO 

R(1322,2 

7, ,*99*)  ; 

EAGE17 

TO 

R (1324  ,2 

7  ,  ,  *  99  •  )  ; 

PAGE17 

TO 

R  < 1 3  26  1 2 

7,,*99*>? 

RTMEC  17 

TO 

R  <1329  ,7 

6) ; 

BAS0Y17 

TO 

R  <  1 3  3  5, 2 

7*  ,'99*  1  ; 

BA  SOM  1 7 

TO 

R  <1 3  37 ,2 

7  *  *  *  99  f ) ; 

BAS0017 

TO 

R  <1339,2 

7  ,  ,  *  99  *  )  i 

OOPGY17 

TO 

R ( 1 34 1  ,2 

7,, *  99*  > ; 

OOPGM17 

TO 

R<1  343  ,2 

7,  ,*99*)  5 

DOLE  Y 1 7 

TO 

R<1345,2 

7  *  *  •  99  *  )  1 

DOLEH17 

TO 

R  <1  347,2 

7***99M  J 

REGRS  17 

TO 

9 <1349, 1 

7f  *■  9*  >; 

YADTYlf 

TO 

R  < 1 3  53  *2 

7* ,*99* ) ; 

TIG17 

TO 

R  <1352  ,2 

7,  *  f 99*  )  1 

WRBM17 

TO 

RC1  354  ,2 

7 ,  * 1 99  1  )  5 

PROP  Y 1 7 

TO 

RC1356,2 

7 , , *  99  * > ; 

SCG8P17 

TO 

RCl  359  ,2 

7, ,*99*  )  ; 

REST  1 7 

TO  R  <  1  36  u  , 

6, 6)  ; 

ETSY10 

TO 

R  <  1  3  76  ,2 

7 ,  *  f  99  •  )  ; 

ETSM19 

TO 

R  <13  79  ,2 

7 *  *  1 99  • )  ; 

HTEC18 

TO 

R  < 1 3  8  3  ,2 

7, , *  99*  )  ; 

AFQT1 8 

TO 

R< 13  R2,2 

7, ,*  99*  > ; 

PG  18 

TO 

R  <1384  »2 

7, *  *99  *  )  ; 

DOBY18 

TO 

R <1386*2 

7,,*99*>; 

DO0M18 

TO 

R  (1389 ,2 

7  ,  , *  99  *  )  ; 

00BD18 

TO 

R ( 1 3  93 *2 

7*,,99*)5 

MS  1 8 

TO 

R <1392 ,2 

7*  * • 99*  i ; 

0EPS18 

TO 

R  <1394 ,2 

7*  ,»  99*  )  ; 

SEX18 

TO 

R  <1396*1 

7*  *• 9*  >; 

AFQTG1S 

TO 

R<1397,2 

7,  f*99M? 

EAGE18 

TO 

R  <  1  3  99  *  2 

7* , *99* )  1 

PAGE  1 8 

TO 

R<1401 *2 

7t,*99*  > ; 

RTNEC  18 

TO 

R<14r3*7 

6)  5 

BASDY18 

TO 

R <  1 A  13  *2 

7, *• 99*  > ; 

8ASDN1 8 

TO 

R<1412*2 

7,,*  99*  > ; 

BASOD 18 

TO 

R  < 1 4 1 4  ,2 

7 , , *  99  *  )  J 

00PGY18 

TO 

R  <1416*2 

7, ,*99*  > ; 

DOPGM18 

TO 

R  < 1 4  1 }  *2 

7, **  99*  )  ; 

DOLE  Y13 

TO 

R<1420  *2 

7*  *• 99*  M 

D0LEM18 

TO 

R  < 1 4 22  *2 

7  *  ,  •  99  *  >  1 

RE6RS18 

TO 

R <1424,1 

7 *  ,  *  9 *  >; 

YA0TY18 

TO 

R  (  1 4  25  *  2 

7*,*99*>| 

TIG18 

TO 

R(1427*2 

7*  ,*99  •  )  f 

VRBM18 

TO 

R <1429,2 

7, , *99* I  5 

PROPY18 

TO 

R  <1431  *2 

7*, *99*  )  ? 

SCGRP18 

TO 

°  <1433  *2 

7,  *• 99*  >  ? 

REST  1 8 

TO 

i  R <  1  43  5 1 

6,6) ; 

ETSY19 

TO 

R  < 1 4  51 *2 

7, ,*99*)  | 

ETSH19 

TO 

R  <  1  4  53  *  2 

7,,*99*>5 

HYEC19 

TO 

R <1455  *2 

7t,*99*l  ; 

AFQT19 

TO 

R<1457  *2 

7,  ,*99*  )  ; 

PG19 

TO 

R  <1459,2 

7, *• 99*  ) ; 

00BY19 

TO 

R  < 1 461 ,2 

7, ,*99*)  ; 

00BM19 

TO 

R  <1463  *2 

7  ,  , *  99 ♦  1  ; 

00B019 

TO 

R  < 1 4  65  *  2 

7,  , » 99  *> ; 

MS  19 

TO 

R  <1467  f 2 

7  ,  ,  •  99  *  >  i 

0EPS19 

TO 

R< 1469 *2 

7,,  *99*)  | 

SEK19 

TO 

R<1471,1 

7  ,  ,  *  9  *  ) » 

AFQTG19 

TO 

R  <14  72,2 

7, »• 99*  )  | 

EAGE19 

TO 

R  <  1 4  74  *  2 

7,  ,  *  99  *  )  5 

PAGE  1 9 

TO 

R<1476  *2 

7, ,*  99*  )  ; 

RTNEC 19 

TO 

R  <1478  ,7 

BAS0Y19 

TO 

R  <1405,2 

7  ,  ,  *  99  *  >  J 

8ASDM19 

TO 

R<1487  *2 

7,  ,'99*  )  \ 

8AS0019 

TO 

R  < 1 4  89  *  2 

7,,  *99*)  1 

D0PGY19 

TO 

R  < 1 4  91  ,2 

7, ,*99*  )  ; 

OOPGH19 

TO 

R  < 14  93 , 2 

7, ,*  89*  M 

00LEY19 

TO 

R  (1495  *2 

7,,*59*>  ; 
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EX  F£  CODE  CPU 


00LEH19 

REGRS19 

YADTY19 

TIG19 

VR0H19 

PROPY19 

SCGRP19 

REST  1 9 


TO  RU497.2 
TO  R  <  1  4  9  9  ,  1 
TO  R<1503  «  2 
TO  R  Cl  502  *  2 
TO  R<1504*2 
TO  R ( 1  50 6  *  2 
TO  RU509*2 
TO  R(1 51 Ot 


7 #  t • 99*  )  ; 
7  *  t •  9f  > ; 

7 1 1  •  99  •  )  * 
7tt«99M  5 
7*  *»  99 •  )  ; 
7 1 1 *  99 •  )  5 
•  7 tt#  99*)  ? 
16*6) ; 


ETSY20 

TO 

R  <1526  *2 

7,, '99')  1 

ETSM20 

TO 

RC1523 .2 

7  *  *  *  99  •  )  ; 

HYEC20 

TO 

R  (  1  5  33  *2 

7*t#99M* 

AFQT20 

TO 

R  <  l  5  32  *2 

7,,'99'  )  ; 

PG20 

T0 

° (1534*2 

7*  *'99*  )  ; 

DO  8  Y  2  0 

TO 

R  <1536  *  2 

7***99*M 

DO9H20 

TO 

R ( 1 538*2 

7, ,*  99*  > ; 

OOB020 

TO 

R  <  1  54  3  *2 

7, , *99*  )  ; 

WS23 

TO 

R(1542*2 

7  ,  ,  '  99  *  )  1 

OE  PS  20 

TO 

R  <1544  f 2 

7 ♦*»  99*  ) ; 

SEX  20 

TO 

R  < 1546  *1 

7***9*  )  a 

AF  QTG20 

TO 

R  <  1547,2 

7  * ,  *  99  *  > ; 

EAGE20 

TO 

R<1549,2 

7ft *99*1 5 

PAGE20 

TO 

R<1551#2 

7  ,  * • 99  *  > ; 

6 )  ? 

RTNEC20 

TO 

° ( 1 5 53  .7 

BASOY20 

TO 

R<156n  *  2 

7*  **  99*  )  ; 
7,  *•  99  •  )  \ 

BA  SDH  2  0 

TO 

R  <1  562  *  2 

BA  SOD  20 

TO 

R <1564  *2 

7*i*99*>; 

00  PG  Y  20 

TO 

R  <1566,2 

7*  *• 99*  )  ? 

00PGM2Q 

TO 

R ( 1 563 *2 

7, ,*  99*  )  5 

DOLE  Y  20 

TO 

R<1 573  *  2 

7, **99  *  > ; 

OOLEH20 

TO 

R (1572,2 

7, ,*  99  '  )  ; 

REGRS20 

TO 

R<15M*1 

7, ** 9*  >; 

Y  A  OT  Y  20 

TO 

R  ( 1  5  75  *  2 

7* ,*  99*  )  ; 

TI  520 

TO 

R<1577,2 

7* , *  99*  )  ; 

VR9M20 

TO 

R  <  1  579 , 2 

7  *  *  *  99  * 

PROp Y20 

TO 

R  < 1 581  *  2 

7* , •  99*  )  ; 

SCGRP20 

TO 

R  <1583 , 2 

7,,  *99*  )  ; 

REST  20 

TO  R  <  1585* 

6*6) ; 

ETSY21 

TO 

R <1601  ,2 

7  t  *  *  99  * ) ; 

ETSH21 

TO 

R  <  1  6  03 ,2 

7.  **99*  >  5 

HYEC21 

TO 

R<1605,2 

7*, *99*)  ; 

AFQT21 

TO 

R<1607 ,2 

7  *  *  *  99  *  )  ; 

PG21 

ro 

R  <1  609 ,2 

7*  * • 99  *  )  ; 

00BY21 

TO 

R  <  1611  *2 

7*  *  *99  •  )  ; 

009H21 

TO 

R  (  1 6 13  1 2 

7,,*  99*  )  ; 

008021 

TO 

R<1615,2 

7*  *' 99*  > ; 

HS  21 

TO 

R ( l 6  1 7  ,2 

7*  **99*  )  ; 

DEPS  21 

TO 

R  (1619 ,2 

7,  *• 99  *  )  ; 

SEX21 

TO 

R(  1621  ,1 

7  *  *  *  9*  >; 

AFQTG21 

TO 

R ( 1 6  22 , 2 

7, ,*99*)  ; 

EAGE  21 

TO 

RC162A  ,2 

7 , * • 99  *  1  J 

PAGE  21 

TO 

R  <1626 ,2 

7**'99»); 

RTNEC21 

TO 

R  (  1 6  28  ,7 

6>; 

BASDY21 

TO 

R< 1635,2 

7*1*99*)* 

BASDH21 

TO 

RC1637  *2 

7 * , *  99  »  )  5 

BASOD21 

TO 

R <1639,2 

7*, *99*); 

OOPGY21 

TO 

R  <1641 ,2 

7* 99*  >  { 

00P5H21 

TO 

R  <1643 ,2 

7,  *• 99*  )  ; 

DOLE  Y  21 

TO 

R  <  1645,2 

7*  **99*)  ; 

DOLE  M21 

TO 

R  <1647  ,2 

7***99*i; 

REG0  S  21 

TO 

R  <1649,1 

7*  *' 9*  )? 

YAOT  Y 21 

TO 

R  < 1 650  ,  2 

7  *  *  *  99  •  H 

TIG21 

TO 

R  < 1 652 , 2 

7  *  * • 99  *  )  ; 

VR8M21 

TO 

R  < 1 6 5 A  ,2 

7*  * • 99 •  )  ; 

PROP  Y  21 

TO 

R  <1656,2 

7*  *»  99*  )  ; 

SCGRP21 

TO 

R  < 1 6 59  *2 

7*  *• 99*  i ; 
6*6)  I 

REST21 

TO  R  <  1  66  0  • 

ETSY22 

ETSH22 

HYEC22 

AFQT22 

PG22 

00BY22 

008M22 

DOB022 

MS  2  2 

DEPS22 

SEX22 

AFQf 522 


TO  R  <  1  6  79  #2 
TO  R ( 1 689 *2 
TO  R  (  1  6  82  *  2 
TO  R  C 1 684  *  2 
TO  R  <1686  *2 
TO  R  <1689  *2 
TO  R <  1 690  *2 
TO  RC1692  *2 
TO  R  <1694  *2 
TO  R (1696*1 
TO  R<1697*2 


7, *'99*  )  J 
7  *  *  •  99  *  )  5 
7ft*99*>; 
7  *  *  *  99  *  )  $ 
7*  *• 99*  )  ; 
7 *  * • 99  '  )  5 
7**'99'>; 
7,, *99')  5 
7  *  * • 99  *  )  • 
7**'99M5 
7***9*  >; 

7 *  **  99M  I 
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EAGE22 

TO 

R<1 609 

*2 

9  7  9 

9*  99*  > ; 

PA  GE2  2 

TO 

R  ( 1  7  0  1 

f  2 

979 

9  •  99  •  > ; 

RTNEC22 

TO 

R ( 1 703 

v  7 

t  6  ) 

? 

BASOY22 

TO 

R(17P 

t  2 

9  7  t 

9*99*)? 

8ASDM22 

TO 

R  (1712 

«2 

9  7  « 

9*99  *  >  ? 

BA  S3  D  2  2 

TO 

9(1714 

1 2 

f  7  f 

9*99»>; 

00PGY22 

TO 

R (17  lb 

•  2 

♦  7i 

9*  99*  )  ? 

00  PS  M2  2 

TO 

R(1 718 

«  2 

97* 

9*99*)? 

DOLE Y22 

TO 

R  (  1  721 

f  2 

9  r  f 

9*  99  » ) ; 

D0LEM22 

TO 

R  (1722 

»  2 

97* 

9*  99* ) ; 

REGRS22 

TO 

R (1 72% 

»  1 

9  7  9 

9*9*  )  i 

YA0TY22 

7  0 

R  <  1725 

»  2 

f  7  9 

9  *  99* ) ; 

TIG22  ' 

TO 

R (1727 

t  2 

9  7  V 

9  * 99  * > ; 

VRBM22 

TO 

R (1 729 

9  2 

9  7t 

f*99*>; 

PROP Y22 

TO 

R  ( l  7  31 

» 2 

979 

9  *  99  • ) ; 

SCGRP22 

TO 

R  (  1  7  3  3 

•  2 

t7t 

9*  99* ) ; 

REST2  2 

TO  Ml  73  5 1 

169 

6)1 

ETSY23 

TO 

R  (1751 

9  2 

9  7  ♦ 

♦  • 99* ) ; 

ETSM23 

TO 

R  (  1 7 53 

«  2 

9/9 

9*99*); 

MYE:23 

TO 

R(1 755 

»  2 

«  7 » 

9*99*)? 

AFQT23 

TO 

R (1 757 

92 

979 

9*99*) ; 

PG2  3 

TO 

R (1759 

9  2 

97, 

9*  99  • ) ; 

D0BY23 

TO 

R  Cl  7  61 

f  2 

979 

t  *  99  * ) ; 

D0BM23 

TO 

RC1 763 

9  2 

979 

t*  99* ) ; 

00BD23 

TO 

R  (  1  7  65 

92 

f7f 

9*99*  > ; 

MS  2  3 

TO 

R  (1767 

92 

*79 

9*99*  )  ; 

0EPS23 

TO 

R(1 769 

•  2 

979 

t*  99*  )  i 

SEX2  3 

TO 

R (1771 

»1 

979 

•  •  9*  ) ; 

AFQTG23 

TO 

R(1 772 

92 

979 

t  *  99  *  )  ? 

e;ag£23 

TO 

R  U  774 

92 

97* 

9*99*  >; 

PAGE23 

TO 

R(17  76 

9  2 

979 

9 *99  * ) ; 

RTNEC23 

TO 

RC1778 

9  7 

f  6  > 

BA  S3  Y  23 

TO 

RC1785 

t  2 

9  7  9 

9  •  99  •  > ; 

BASOM23 

TO 

R (1 787 

9  2 

979 

9*99*  > ; 

BAS0023 

TO 

R  (  1  7  8  9 

•  2 

9  7f 

» • 99*  > ; 

OOPS Y  23 

TO 

° (1 791 

92 

979 

*• 99*  > ; 

00  PGM  23 

TO 

R  (  1  7  9  3 

1 2 

979 

t  *99*  >  ; 

DOLE!  Y  23 

TO 

R (1 795 

» 2 

«7« 

9*  99  « >  ? 

DOLE  H  2  3 

TO 

R (1797 

92 

979 

,*  99*  > ; 

REGRS23 

TO 

R ( 1 799 

f  1 

f7t 

9*9*  >s 

YA0TY23 

TO 

RC1800 

9  2 

f7f 

9*99*); 

T!  G23 

TO 

R  (1802 

•  2 

v79 

t*99*)? 

VRBM23 

TO 

R  (18  04 

92 

t79 

t*99»); 

PROP Y2  3 

TO 

R(1806 

1 2 

V  79 

9*99*  >  i 

SCCRP23 

TO 

R  (  1  8  0  8 

92 

»7, 

t*  99  *  > ; 

REST23 

to  Ruaio, 

169 

6) ; 

ETSY24 

TO 

R  (  1826 

92 

979 

9*  99* ) ; 

ETSM24 

TO 

°  (  18  28 

» 2 

♦  7f 

9*99*) ; 

HYEC24 

TO 

R < 13  30 

v  2 

97, 

, • 99* )  ? 

AFQT24 

TO 

R  (1  8  32 

•  2 

9  79 

9 • 99  *  >  ? 

PG  24 

TO 

R (18  34 

9  2 

9  7  9 

«  *99*  >  ; 

008 Y  24 

TO 

R (183& 

9  2 

9  7, 

9*  99* ) ; 

009M24 

TO 

R  (  18  33 

92 

9  7  t 

9 • 99* )  ; 

OOB324 

TO 

R  (  1  3  4  0 

92 

9  7  f 

f*99»  > ; 

MS  24 

TO 

R  (  1842 

92 

979 

9*99*)? 

0EPS24 

TO 

R  (  1844 

92 

•  7  9 

f • 99*  > ; 

SEK24 

TO 

R (1 346 

il 

9  7  9 

9*3*  )  » 

ACQTG24 

TO 

R  (  1  8  4  7 

9  2 

979 

t • 99* )  ; 

EAGE24 

TO 

R  (1849 

92 

979 

9*39*) ; 

PAGE  24 

TO 

R (1851 

92 

9  7  9 

9*  99* ) ; 

RT NEC  24 

TO 

R  <1353 

.7 

96) 

j 

BA  SO  Y  24 

TO 

RC1863 

92 

979 

9*  99  • ) ; 

BAS0H24 

TO 

R  (  1  9  62 

92 

9  7  9 

f*99*)» 

BASDD24 

TO 

R  (  1 8 64 

92 

9  7  y 

9*  99*  > ; 

DO  P  G  Y  2  4 

TO 

R (1866 

92 

9  7  9 

t*  99*  > ; 

00PGM24 

TO 

R ( 1 8  68 

9  2 

9  7  f 

9*99*) ; 

OOLE Y  24 

TO 

R  (1370 

«  2 

9  7  f 

9 *99* ) ; 

00LEM24 

TO 

R  ( 1 8  72 

92 

97f 

9*  99*  > ; 

REGRS24 

TO 

R(18  74 

V1 

9  7  9 

9*  9*  >; 

YA0TY24 

TO 

R  ( 1 8  75 

92 

«7f 

9 1 99  » > ; 

9  •  99  *  > ; 

TIG24 

TO 

R(18  77 

92 

97f 

VR0M24 

TO 

R (18  79 

92 

979 

9  *99  • ) ; 

PR0PY24 

TO 

R< 1881 

9  2 

,7, 

9*99*); 

SCGRP24 

TO 

R  < 1 8  83  *  2 

1 1\ 

9*  99* ) ; 

REST24 

TO  R< 1 88  5* 

6) ; 

ETSY25 

TO 

R  (1901 

92 

f  7  9 

9*99*)  ? 

ETSM25 

TO 

R  (  1 9  03 

92 

t  7  9 

*  •  99  *  )  ? 

HYEC25 

TO 

R( 1905 

9  2 

,7, 

9*99*)  f 
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AFQT25 

TO 

9  <1907 

2  t7t  i 

PG  25 

TO 

R  <1909 

2  ♦  7»  i 

D0BY25 

TO 

R  <1911 

2 1  7  ♦  i 

00BM25 

TO 

9 < 19  15 

2  ♦  7  ♦  i 

O0BO25 

TO 

R  <  1  9  1 5 

2  «  7  ♦  i 

MS  25 

TO 

R  <  1  9  1  7 

2  ♦  7$  , 

DEPS25 

TO 

R  <  1  9  1  9 

2  ♦  7  ♦  i 

SEX25 

TO 

R  <1921 

l*7*i 

AFQTG25 

TO 

9  <1922 

2  ♦  7  ♦  , 

EAGE25 

TO 

R  (  1  9  24 

2,7,, 

PAGE25 

TO 

9  < 19  26 

ill\\ 

RTNEC25 

TO 

9 (1928 

8ASDY25 

TO 

R  <1935 

2  ♦  7  ♦  i 

BA  SON  25 

TO 

® < 1937 

2.7,  ♦ 

8 A  S3  3  25 

TO 

9  < 1 9  39 

2.7,  , 

OOPS  Y  25 

TO 

R  <  194  1 

2.7,  , 

OOPGM25 

TO 

9  (1943 

2,7,  , 

DOLE Y25 

TO 

R  <1945 

2,7.  . 

D3LEM25 

TO 

9  <  1  9  4  7 

2 . 7  •  . 

RE  GR  S  25 

TO 

R  (1949 

1,7.1 

YADT Y25 

TO 

R  (1950 

2,7,i 

TIG25 

TO 

R  (1952 

2  ,7,  , 

VR8M25 

TO 

R  ( 1  9  5  4 

2 ,7,  , 

PR  OP  Y  25 

TO 

R  < 1 9  56 

2,7,  , 

SCGRP25 

TO 

R  < 1 9  58 

2,7.« 

REST25 

TO  9(1960.16. < 

ETSY26 

TO 

R  ( 1  9  76 

2,7,  , 

ETSM26 

TO 

R  <  1 9  78 

2,7,, 

HYEC26 

TO 

^  <1980 

2,7,1 

AFQT26 

TO 

R  <1982 

2  ,  7  ,  , 

PG  26 

TO 

R< 1984 

2,7,, 

DOB Y  26 

TO 

9(1986 

2,  7,  , 

D0BM26 

TO 

9  <1988 

2,7,, 

008026 

TO 

9 (1 990 

2 , 7  ,  , 

MS  26 

TO 

R<1992 

2,7,f 

OE  PS  26 

TO 

R  < 1 99 4 

2,7,, 

SEX26 

TO 

R  <1996 

1  ,  7,  , 

AF0TG26 

TO 

R (1997 

2,7,, 

EAGE26 

TO 

R  (1999 

2, 7,  , 

PA6E26 

TO 

9  <2001 

2 , 7  •  • 

7,6)5 

RTNEC26 

TO 

9  (20  03 

BASDY26 

TO 

R (20 10 

2,7,, 

BAS  DM26 

TO 

9(2012 

2,7,  , 

BAS3026 

TO 

R<23  14 

2,7,, 

00PSY26 

TO 

9(2316 

2,7,  , 

DOPGM26 

TO 

R  <20  18 

2,7,, 

OOLEI  Y 26 

TO 

R  <20  23 

2,7,  , 

DO  L?  M  26 

TO 

R  <  2  0  22 

2,7,  , 

REGRS26 

TO 

R  <2024 

1  ,7,  » 

YA0TY26 

TO 

R  <20  25 

2,7,, 

TIG26 

TO 

9  <  2 0  27 

2,7,, 

VR8M26 

TO 

9  <  2  0  2  9 

2,7,, 

PR  OP Y  26 

TO 

9  <  20  31 

2 , 7  •  , 

SCGRP26 

TO 

R ( 20  33 

2,7.  . 

REST26 

Ef$Y27 

TO  R(2035.16,6 
TO  9(2051.2.7.. 

ETSM27 

TO 

R  <  2^  53 

2,7,, 

HYEC27 

TO 

9(2055 

2,7,, 

AFQT27 

TO 

P (20  57 

2,7,, 

PG  2  7 

TO 

R (20  59 

2,7,  , 

D0BY27 

TO 

R (2061 

2,7,  , 

00BM27 

TO 

R  <  2  0  63 

2,7,, 

008D27 

TO 

9  (20  65 

2,7,, 

MS  27 

TO 

9(2067 

2 ,7,  , 

DEPS27 

TO 

9(2069 

2,7,  , 

SEX27 

TO 

9  <20  71 

1*7,, 

AFQTG2T 

TO 

R <20  72 

2,7,, 

EAGE27 

TO 

9  (20  74 

2,7,, 

PAGE27 

TO 

R  <  20  76 

2i',l\\ 

RTNEC27 

TO 

9  (20  73 

BASDY27 

TO 

R  <2085 

2,7,, 

BASDM27 

TO 

R  <  20  8  7 

2,7,  , 

BAS0D27 

TO 

8(2089 

2,7,  , 

OOP3Y27 

TO 

R  <2091 

2,7,  , 

OOPGM27 

TO 

1(2093 

2,7,  , 

00LEY27 

TO 

9  <2095 

2,7,, 

DOLE M 27 

TO 

R  <23  97 

2,7,  , 

REGRS27 

TO 

R  <20  99 

1 1  7  ,  , 

♦•99*1 


» •  9* 


i* 99* )  ; 


t*9*  > 

i*99* 
i  *99  •  1 
*99*: 


•  9*  i ; 


4 

»  99*  )  5 


»•  99  *  )  J 


•99*  >  | 
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CXFECOOE  CNA 


VADTY27 

TTS27 
YRBH27 
PROP Y 27 
SCG1P27 
REST  2  7 


R  ( 21  DO  »2  ?7* »• 99*  » 
R(2102»2f7»»'99»>  . 
R (210*  ,2 .7*  «  »59» »  • 
!»{2106»2*7.,*99»  >5 
TO  R(2i09|2i7».*99»»  ! 
TO  R<2110i  16t6) ? 

a  r  u r  nn  n  i  mu  Y 


TO 

TO 

TO 

TO 

TO 


Nt.  i  I  <:  f  IU  HUilUllOIOM 

//GofF!lEl,ODTOSN=DD963.EN.P760'.P9303,UNlT=3ROO-5,OISP=OLD, 
ft  V0L=SER=K05256  _ _ _ _ „ 


/7GO?FIL'-2=D05d19=D0963.P760  9.P8303,UNIT  =  390  0-5,OISP=CNEU 
//  OC0=(LR£CL=2125»BLKSI2£=2125CtPECFM=FB)*VOL=SER=KO762O 


C  NEW*  KEEP)  « 


54 


SHIPS 


son 


//MW$»SHPS  JOB  (340  4.3F7333)f  CUNNINGHAM fC LA SS=G 
//♦FORMAT  PRtOON4ME  =  *DEST  =  RMTOi  . 

//♦MA IN  PR OC  =  20 « •* INGCHK=NO*ORG=FMTO ltLINES=(  46) 

//  rXrC  PLlXCLG»:3ARM.PLI=,I<F)tLC(80)*HAR(2f72)iMI(,,|,#  >tNEST*X(F)*t 
//  'pARM«LKi:O  =  tN3LlSTfNOf1APfNOXFEF»tREGION=1500K 

//♦  EXEC  PLIXC 
//♦PLDSYSPR  INT  DO  OUMHY 
//PLI.SYSIN  00  *  . 

SHIPS:  PROC  OPTIONS  CHAIN >  REO FOEP  |  ^  ♦***♦#* ****«***+»*. *********«*< 

/#t  TAB*FOR*BDH-COUNTS# BY*UI CtOATEtRATINGtGPADE.  OUTPUT  TAP' •  * 

M  r  k  *  *  *  »r  M*«»*****i  *  ♦♦  l#***»*k*M»**#M*##**»*MMt**M*******  i 

OCL  INI  RECORD  SEQUENTIAL  BLFFEREO  INPUT  ENV  (CONSECUTIVE  FB  S  TOTAL 

RECSIZE  <1400)  8LKSIZF  (14000)  BUFFERS<2>>»  _ 

OUT  Rr  COR  D  SEQUENTIAL  B IF  FE  PE  0  OUTPUT  ENV  (CONSECUTIVE  F3 S  TOTAL 
RECSIZE  (54)  BLK  SIZE  (13014)  BUFFERS(2))t 
SY SpR IN T  FILE  OUTPUT  PRINT  \ 


INPUT  FORMATS 


DCL 

DCL 


<i i » 1 2)  pointer; 

1  IN_REC  BASED  (ID 


FI 
Y  ( 2  7  )  » 

3  F  2 
3  PG  IN 
3  c  3*~ 

3  RT  IN 
3  F4" 

3  UIC  IN 
3  F5  " 


CHAR 


<  s2 )  t 


CHAR ( 0  4 ) « 
CHAR(OI) • 
C  HA  R  (  0  9  )  9 
C  HA  R  (  0  3 )  t 
CHAR ( 1 7 ) f 
CHAR(03)t 
CHAR (13)5 


/* 

/• 

/* 

/* 

/♦ 

/♦ 

/* 


1-50  ♦/ 

•1  -54  */ 

*5  */ 

16  -  64  *  / 
£5  -  67  *  / 
£8  -  84  */ 
£5  -  67  ♦/ 
£8  -  10  0  *  / 


DCL  A( 


A  (  1  7 »  27  9  7  3  •  10  )  FIXED  BINC31M 

/♦  UIC9  D  A  TE  9  RATING9  PAYGFADE  ♦/ 

DCL  <  SUH  9  SUB  STR )  BUILTINJ 

OCL  (IN  CTRiOUT  CTR)  FIXED  BIN  (31)  INITCOBM 

OCL  BPS  FIXED  7 IN ( 15 )  INITCOBW 
C  PG  CHAP(l)  DEF  BPG  POS(2Ji 

DCL  Cl 9UIC9PG9RT»YR)  FIXED  BIN(15)  INIT(0B>; 

OCL  DATE  (27)  FIXED  0IN<31>  IN  IT (7609 f 761 2 • 

7703977n69770997712978G397F06976Q9»78l2t790397906f790997912t 
80  0  3,8106t  80  09 9801298 10  3 f9  106  9  8109  9  91129  820  3t 82 06 9 3 20 9 9021 2  » 
8303) } 

OCL  UIC  A ( 1 7  )  CHAR  (C  3 )  IN  IT ( *  5 7 4* 9  •  575 • 9 • 5 76  *  9 • 58 6  • 9 

*  588*  »• 58  9* , *59  0*  9  *591  *9 

*598*  » •  599*9  *  600  *  t*60 1*  t*602*t  *603*  9  *60  4*  9*  611* ) 5 

OCL  RATING  A(73)  CHAR<3>  INITC'AA 

•ABE 
1 A  BH 
•AO 
•AE 
•AK 
•AN 
•AR 
•ASH 
•BM 
•8T 
«BU 
•CM 
•C  R 
•CTH 
•CTO 
•CTR 
•CTT 
•OK 
•DM 
•DP 
•OS 
•EM 
•EN 
»ET 
•ETN 
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OCL  L  <  6  >  C  H  A  R  <  33  )  INIT(< 


•ETR 

♦rw 

'FA 

•FN 

•FR 

•FT 

•FTG 

'FTM 

•GH 

«GHG 

•GMM 

•GMT 

'GS 

•GSE 

•GSH 

♦HA 

•HM 

'HN 

•HR 

'HT 

♦IC 

•JO 

•MA 

•MM 

'MR 

♦MS 

•HT 

•NC 

'OS 

•OT 

•PC 

♦PN 

•QM 

♦RM 

•RP 

*SA 

«SH 

*$K 

♦SM 

•SN 

'SR 

♦STG 

•STS 

•TM 

•UT 

•YN 

•TOT 


5; 


009(3  CLASS  SHIPS  PERSONNEL 
BY 

•*  UIC  t  OATEt  RATING  &  PAYGRAOE 


DCL  OUT  STR  CHAR<5A>: 

OCL  BIN'FIELD  FIXED  8INU5)  INlT(OB>t 
CBIN“CHAR<2>  DEF  8IN_FIELD1 

ON  ENOFILE(TNl)  BEGIN  $  GO  TO  SIMNARYI  END  5 
ON  ENOPASE  CALL  HOG  5 

OPEN  FILECINDt  FILE  (S  YSPRINT)  LINESIZEU32)  PAGESIZEtSOM 
/*»***»«M**M»*t^  BEGIN  INFUT  PROCESSING  ************< 
A  =  0  I 

READ_NEXT JtECORD  : 

READ  FILE(INl)  $ET<I1>?  IN_CTF  =  IN_CTR  ♦  11 


DO  I  =  1  TO  275 

00  UIC  =  1  TO  17T  /•  CHECK  UIC  */ 

IF  SUBSTRCYCI  )  .UIC  INfli2>  =  CBIN  THEN  GO  TO  NEXT1  « 

IF  Y  < I >  *  U IC_I N  =  UTCJUIIO  THEN  LEAVE  ? 

END1f  UIC  >  17  THEN  60  TO  fEXTll 

/*  CHECK  PAYGRAOE  */ 
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?F#BP|I=,0®THCN  LEAVE. 

°°  »  SgV^THEN  LEAVE. 
rN°iF  PG  >  9  THEN  GO  TO  NE)T15 

/•  CHECK  RATINGS  •/ 

IF  SUBSTR (Y(I > . RT_IN »lt <»  =  CBIN  THEN  GO  TO  NEXT1S 
°°  IF  hhlhUk  =  RATING.ICRT)  THEN  LEAVE. 

EN°lV  RT  >  72  THEN  GO  TO  NEXT15 

a</Ic,i,putPdata<a<uic;iIpt!pI>>;if5in_ctr  >  25  THEN  go  to 
sundry;  •/ 

NEXT1 : 

5Um«,<  ........ . 


summary: 

OO  UIC  =  1  TO  17; 

03  YR  =  1  TO  27? 

00  aIui:1yR°»RT  tlo  )  =  A  <UICfYR,RTtlO)  ♦  SUH(ACUlCtYR.RT*OH 
END  ; 

E  NO ; 

end; 

00  UIC  =  1  TO  17; 

00  YR  s  l  TO  27; 

°°  A(Ulw  # YR t  73 »£& )  =  A (UIC • YR » 73 tPG )  ♦  SUH(A(UIC?YR**»PG)  >5 
END  ; 

end; 

end; 

PRIN1  OUTPUT  «**•****«*♦*»*»»**»*►****•/ 

DO  UIC  =  1  TO  17. 

DO  YR  =  1  TO  275 

DO  RT  -  i  A (UI C, YR t73tl 0 >  >  C  THEN 

CALL  H DG  * 

IF  A (UlCf YR  1  RT jlQ )  <  I  THEN  GO  TO  NEXT2J 
IF  RT  =  73  THEN  PUT  EDI  TO  TOT AL •  t  (AC UIC tYR *RT *1 >  DO  1=  I  TO  10)) 

IF  RT  -  73  IHLN  (  SKI  P  ( 1  )  .  CO  L  <  3  )  ,A  f  C  0  L  <  11  )  •  1 0  |  X  {  5  )  ,  Z  ?  2Z9  •  )  )  *• 

ELSE  PUT  EDIT  (RATING  ft  ART)  *  (ACUlCtYRfRT  1 1  )  DO  1=  1  TO  10)) 

L  (SKlP<l)t(OE(3)»A tCOL ( 1 1 ) « 10(X(5)tP*Z,ZZ9 •  ))  ? 

PUT  ST R IN G( OUT  STR)  EDITC  UIC  MUIC>t  DATE(YR>t 
RATTING  A(RT)  f  A  (UTCtYR  tRTf  1  )  ♦ 

A  ( J IC  *YR  «RT  «  2  )  t 
A  <U  IC  t  YR  fRT  t  3  )  t 
A (UIC  tYR»RT*4) t 
A  C JICtYRiRTtS)  t 
A  (  J  I C  *  YR  »RT  t  6  ) « 

A (J IC  » YR tRTf  7  >  t 
A  (U  IC tYR  fRT  «  8  )  • 

A (UIC  tYRt RT t  9  )  • 

A  (U  I  C  | YR  tRT  t  10  )  ) 

(AtP  *9999*fAtl0(Pf*9S9t )  )  t /*  3M43*40  =  50  */ 

WRITE  FILE(OUT)  FR0H(CUT  SIR); 

OUT_CTR“=  OUT  CTR  «*  II 

NEKT2 : 

ENOI 
END  ; 

end; 

DCL  PG  CTR  FIXED  B IN< 31 ) I  NIT <0 f) I 

H06:  Ppl0CcU  -  PG  CTR  ♦  It 

PUT  PAGE ?  PUT  EDITMPAGE-  *.PG  CTR .•DHDC-83F73333* > 

<C0L<98>  |A.PYZ29» ) 5 

PUT  EOIT((L(I>  DO  1=1  TO  < >  )  ( SK IP <1 > tCOL C4 0 > • A ) » 

PUT  EDIT  < • SHIP  -  N20».UIC  A(UIC)) 

(  S<  IP(2>  »COL  C  A9>,  «TP*  99  9*  I 

(•DATE  -  •iDATE(YF>><SKIP«2)»COL(50>tA»P»9999»> 
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PUT 

PUT 


El  E2 

E8  E9 


E0IT  ‘’total  record!  OUT  =  'JouTj:tS><COL<5),A*P*ZZZ»ZZ9»>; 

//•GO •  I ni  DO  DISP=SHR,DSN=MRDC.fLCX)iX.D0963.*100 
//GO. INI  DD  UNIT=3400-5«DSN=DD9 <3. P 7609 . P6 30 3 t VOL=SER=KO 6760» 

//  OSN=0ON.SHIPStDI SP=<NEU • KEEP  1  • VO t  =  SLR =00  3A 6 7 

//GO  * OUT  03  UNIT- 3% 0 0-6 tDC 8= < LR ECL=54 *BLK$t ZE  = 1301  % tRECFM=F BtDEN=4 ) « 
//  OSN=BDH.SHIPStDISP=<NEU,KEEP  ) »  VO  L=  SE R  =  KO  T 99  0 


( CRATING 

E5 

r  6 

E 

(S< 

IP  <  2  > 

pur 

SKIP 

ENOJ 

/♦  HEADING 

PROC 

eoj: 

E3 

TOTAL* ) 


l  4 


eno; 

/* 

//♦go. ini 

//GO. INI 


5 '8 


BDft 


SHIPS3T 


PLIXCLGfC  AR>.PLI  =  *  A ( F  )  .  1C ( 8 0  )  . M i »  <2»72)«MI<"’| •*  >»NEST*X  (F  )  •  * 
I.LK-:0=«  NJLIST*NGHAP*NOX?lF#  *  PEG  I CN= 15 C OK 


//MWS  AFORZ  JOB  (3  420  1 3F 7 33 3 > * H NG • CLAS S =C 
//♦FORMAT  PR»QONAME=tDEST=RWT01 
//♦MAIN  PROC-23  »R INGCHK-NO »ORG= FNTH 1 ,LINES= ( 7 ) 

n  EXEC  -  -  -  -  ■  '  . 

//  PARK, 

//♦EXEC  PLIXC 
//PL  I  *  $  Y  SPR I N  T  OD  DUMMY 
//PL  l  *  SYS I N  DD  ♦ 

ships:  proc  options  (maini  reofder; 

/*»*»»*'.*******«**  +  *•«*•** 

*  TAB  p  OR  BD  H-COU  NT  S  AND  X  OF  AUTHORIZED*  ASSIGNEO  &  MANNE  0  PERS. 

BY  UIC *DATE  iRATINGtGRADE* 


OCL  INI  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (  1290  0  )  P IFF E  FS( 

I N  2  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  RLKSTZE  (12900)  BUFFERS! 

I N 3  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N 4  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

INS  RECORD  SEQUENTIAL  PLFFERlD  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N 6  RECORO  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  <150  BLKSIZE  (  12900  )  BUFFERS! 

I N 7  RECORO  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFF£PS( 

I N3  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN  9  RECORO  SEQUENTIAL  B  LF  FE  Rr  D  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN  10  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

TN11  RECORD  SEQUENTIAL  B  LF  FE  RE  0  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

INI  2  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N 1  3  RECORD  SEQUENTIAL  BUFFERED  INPUT  l  NV 
RECSTZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN  1 4  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N 1 5  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
R  E  C  S I Z  _  (150)  BLKSIZE  (  12  900  )  BUFFEPS! 

T N 1 6  RECORO  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSTZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N 1  7  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (129^0)  BUFFERS! 

IN18  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSrZE  (12900  BUFFERS! 

IN19  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN 20  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

I N  2 1  RECORD  SEQUENTIAL  BUFFERCD  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN 2 2  RECORO  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  U2500  )  BIFFERS < 

IN23  RECORO  SEQUENTIAL  BUFFEREO  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (  12900  )  BUFFERS! 

IN 2 4  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (  12900  )  B IFFE  FS< 

IN  25  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

IN 26  RECORD  SEQUENTIAL  BLFFERED  INPUT  ENV 
RECSIZE  <150)  BLKSIZE  (12900)  BLFFEFS! 

IN27  RECORD  SEQUENTIAL  BUFFERED  INPUT  ENV 
RECSIZE  (150)  BLKSIZE  (12900)  BUFFERS! 

OUT  RECORD  SEQUENTIAL  BUFFERED  OUTPUT  ENV 
RECSIZE  (022)  BLKSIZE  (13024)  BUFFERS! 

0UT2  RECORD  SEQUENTIAL  BUFFEREO  OUTPUT  ENV 
RECSIZE  (022)  BLKSIZE  (13024)  BUFFERS! 

OUT 4  RECORD  SEQUENTIAL  BUFFEREO  OUTPUT  ENV 
RECSIZE  (022)  BLKSIZE  C  13024)  BUYERS! 

SYSPRINT  FILE  OUTPUT  PRINT! 


(CONSECUTIVE 

2))  * 

(CONSECUTIVE 

2))» 

(CONSECUTIVE 

2)), 

(CONSECUTIVE 
2)  )  • 

(CONSECUTIVE 

2))* 

(CONSECUTIVE 

2)  )  * 

(CONSECUTIVE 

2))* 

(CONSECUTIVE 
2  )  )  * 

(CONSECUTIVE 

2)  )  * 

(CONSECUTIVE 
2)  >* 

(CONSECUTIVE 

2  )  )  i 

(CONSECUTIVE 

2  )  )  ♦ 

(CONSECUTIVE 
2)  )• 

(CONSECUTIVE 
2  )  >* 

(CONSECUTIVE 

2)  >  , 

(CONSECUTIVE 

2  )  )  t 

(CONSECUTIVE 

2)  )* 

(CONSECUTIVE 

2)  )  * 

(CONSECUTIVE 

2)  )* 

(CONSECUTIVE 

2)  )  * 

(CONSECUTIVE 

2)  )* 

(CONSECUTIVE 
2)  )  * 

(CONSECUTIVE 

2)  )  * 

(CONSECUTIVE 
2)  )  * 

(CONSECUTIVE 
2)  )» 

(CONSECUTIVE 

2)1* 

(CONSECUTIVE 

2))* 

(CONSECUTIVE 

2))* 

(CONSECUTIVE 
2>  >  * 

(CONSECUTIVE 

2))* 


FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

F9S 

TOTAL 

F8S 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

F3  S 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

F3S 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

F8S 

TOTAL 

FBS 

TOTAL 

F3S 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

FBS 

TOTAL 

/*  « 


INPUT  FORMATS 


59 


BOrt 


SHIPS37 


□  CL  (I  1 1 1  2  )  pointer; 

OCL  I  IN  R  EC  BASED  (ID* 
2  FILL1  1 
2  RT  IN" 

2  FICL1  3 
2  UIC  IN 
2  FILC1  4 


/ 


CHAR 

(33)  • 

/♦ 

01  -  33 

CHAR 

l  03)  , 

/* 

34  -  36 

*/ 

CHAR 

(35)  , 

/* 

37  -  71 

♦/ 

CHAR 

(03)  • 
(76)  i 

/* 

72-74 

♦/ 

CHAR 

/* 

75  -150 

*/ 

DCL  A  (  58*  11*  2  )  FL0A1  BIN<31>? 

/*  .  RATING*  UIC  *  N  ,  t  * / 

DCL  RECORD  CHAR<22>; 

0CL(SUM,SU9STR >  8UILTINI 

DCL  <IN_CTR*0UT_CTR*REC2>  FIXE!  BINC31)  INIT<0B)S 

DCL  <1  *  tIC  *  RT*  YR  )  FIXED  BINDS)  INIT(0B)5 
OCL  <AUTH_CNT> <1 1)  FIXED  8INC31)  I  NIT  <  DB  >  * 


DCL  DATE  (27)  FIXED  BIN(31)  IN  IT ( 7609*761 2. 

7703, 77G6, 7709, 7712,7t503t7E0b,7a09,  7  8  1  2  »  790  3  *  79  "6*  7  90  9  «  791  2  * 
8003,8006, 80  09, 3012, 8102*9  10 6,81 09, 8112*820  3, 82  Ob, 8 20 9*821 2* 
8303) I 

OCL  UIC  A ( 1  1 )  CHAR (0  3)  I N  IT ( • 2 31 • * • 2 32 • * *2 3 3 • * • 2 34  * * 

•  2  35f  *  *  236 • *  *683f  *  •684»  *  *6 (5  • * •886*  ,#TOT*>; 


DCL  RATING  A(58)  CHARC3)  INIT(<8M  • 

•8  T  * 
•D  S  * 
'EM  • 
*E  N  • 
*ET  * 

ir  u  * 

♦F  N  • 
'FT  • 
•F  TG  * 
'FTM  * 
*G  M  f 
'GMG  • 
'GMM  * 
'GMT* 
•IC  • 
'HT  • 
'MM  • 
'MR  • 
'MS  • 
'OS  * 
«QM  • 
»RM  • 
'SH  * 
•SK  • 
*SM  * 
»SN  • 
•STG  • 
•TM  • 
•OTH  • 

,ETR,t,ETN**,STSt*  'DK  • 

•AD  •  ,  •  A  G  •*• AO  •*  *BU  * 
•MA  • *  f N  C  •••PC  •  * ' PN  •**YN  • 


DCL  AUTH  NUM  ( 11*58)  FLOAT  BIN? 
DCL  AUTH'NUM  CNT(11,58>  FIXEO 
8*  3  579  *  iff* 2. 13,7.19.0  *9,21 
12*1 *16*0 *0,0, 0,5,  0*5*0 
8*35*9.  9,2*13*4*19.0*9.21 
12*1 *16*0  *0,0, 0,0.0, 0*0 
8,35.9* 10*2* 13*6*19.0.9*21 
12*1  *  1 6  ,  C  ,0,0,0, 6, 0,0*0 
8*35*9*10*2* 13*4*19.0  *9*20 
12*1*16*0.0*0,0,0.0.0,0 
8,31,9, 10, 2* 12  ,6,19,0*9*18 

12 , 1 *16,0  ,0  *0*0, u, 0,5*0 

8,34,9*10,2*  13*4,19,0  *9*20 
12*1*16,5  *0*0*0, 6. 0*0*0 
8*35.9,10*  2* 13*7*18,0*9,21 
12,1 .16,5,0,0,0,5,5 .0,0 
8 *31, 9, 10,2, 13*4,19,5 ,9,21 


•HM  • *  *HN  •  ,  *HA  *  ,  *  HR  »,#JO  •, 
•CM  *  ,  *  AMS*  ,  *  A  A  »,*AR  «,»AN  •, 
•FA  • , • FR  •♦•SA  ♦••SR  * , 1 T 0 T*  ) • 


EIN< 15  ) 

i0  *6,12 

i0,0  ,0, 
,0  ,6,11 
«0  *0,0* 
*0  ,6,12 
,0*0,0, 
,0  ,6,12 
,0,0*0. 
,1  *6*10 
•0*0*0* 
,0  *6*12 
0  *0  *0  . 
0  *6*13 
0*0*0, 
0 ,6,12 


I  NI T  ( 

,4,9,6,38, 1*15,34,5,16,7,8,5,50, 
0,0,0 ,0.0, 0,0  ,0,0,0*  0  ,u*O,u,0,O,O, 
*4 *9* 6, 3B, 1*15, 37, 5* 16, 7*8,5*50* 


0*0*0*  0,0*0*  0,0*0  *0*0  *0*0  ,0,0, 0,0* 
,4*9*6*58* 1 *13,5? *5* 16,6,8,5*55* 
0*0*0  *0*0*0  *0*0, 0*0*0 *0,0*0, 0,0*0* 
*4.9,6*38*1*15*37,5*16* 7*  6*5*50 • 
0*0*0  ,  0  ,  C  , 0*0, 0,0*0, 0,0,0  *0,0,0  *0* 
•4. 9*6. 38*1*15*34, 5«16«7jb* 5, £0* 
0,0,0  *0,0*0 *0*0, 0*0*0 ,0,0, 0,0, 0*0* 
•4,9,6* Ja, 1*15,35*5, 16,7, 8,5,50, 
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DCL  L<6)  CM  AR  (  33  )  I NI T ('******•**•****•« * ♦ * * * *, * ** # 

**  0DG:7  CLASS  SHIPS  Pr  RS  CNNE  L- 

J2  AUTHORIZED,  ASSIGNED,  MANNED 

'*  *  UTC,  DATE,  RATING 

OCL  NPC  CHAR  C  1  0  3  )  INIT  (Ur^^^T*^********0******* 
OCL  «BCP»CSlg?A<  iSZ>TI^f  $  Ib?  r ASN  "" 

0ct<Ju#H?J»I?EX0C8igJ5||?,»  INIT<  «>* 

'on  ENOFItE(INl)NBEG?NirciLL*SlMH*fi?*TllG§.T0  E0J!  ENOi*' 

'*  ?  c  <ii  ; if ip™™ 

ON  ENDFILrUNAj'fcsiNS  CALL'$U?MAPYTAn  ^A01JEN°5 
ONL°NOPILE?  IN6?'  BEGIN;  citE  <itl^i«?^Tll-f^A01*ENDi 
ON  ENC)FILE(IN8»  BEGIN?  CALL  ‘  SUM  A  R  y°T  AR  -5  •  AD1  JEN05 
ONLENpFILE’(  IN10)  ’be  GI  N !  FC  ALL  *S  IMHA  R  Y°T  A0-1  i  •' 01 5  E  f<°  5 

oSLpgpFi[HU?iV^®  ??  °  km  tt*ot 

0§L^KfeHJ?§i,|E5?S7  UtVl 

°S.  SS§ft*«S5S?3»  *|cg?S7  ciSiE^^AvH *EN0» 

ON  ENOFILl C INlJ )  ‘begin;  call(simmary?tab-15^AD1 :Eh0; 

oS^S&FlftSSKEVJeSSg?  if^MKND! 

on^enofileunig?  ‘Ieginj  call’sihmary^tabL?^01^^05 

ONL°NDFILEaN17) 'begin1;  C  A  LL  '  S  IMHA  fi  y*TA  fl?i  5^  AD1  !ENDS 

ill  C  !§  JSsaoiiend, 

oS^SrfifclfHiHeSS?  call's  ihmary;ta^2^A01  5END! 

ON  EN0FrLEflN20?'kGIN!  C  All”  IMNA  RY^TAB"21  ^*°l  5END; 

sltHSSJrf?! 

ON  ENOFILE ( IN23)  'bEGIN?  C  ALL*  S  IMM  A  R  Y  •  T  AB^*^  *Dl  ?END  ! 

°8JSFJftI{BI!i,M!S  FSKI  iigtfvK*{Hrox  *C,*D* 

ON  ENDFILEI  IN25)  BEGINS  C  AL  L  ‘  S  IHMA*  fi  v??  aI 0  -,RE  AD1  5  E  N0  5 
CLOSE  FILE(IN25>!  OPEN  F  ILE < I  A?^2£i 

ON  ENDFILE<IN26>  B  EGI N  ;  C  ALL  S  IMMA*  <3  v  ?r  .  I  °,  3^  AD1  5  E  *°  * 

CLOSE  FILE(IN26)5  OPEN  F  IL Ef I  YJ I A ?  =  2 7  * 

ON  ENOF ILE  ( IN2  7 >  SegiEs  C  MIl"  L^ I ^ y ? g o T ? 0 R | * S 1  |gWD  ! 

ON  ENOPAGE  CALL  HOG  I 

OPEN  FILE(IN1»,  FILE ( SYSPRI NT>  LINE  SIZE C 132 »  PAGESIZEIBOM 


>; 
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RE4D1: 

A  =  0!  *UTH_CNT=0?  AUTH_NUM=P? 
READ_NEXT_RECORD : 

SELECT  (TAB)} 


UHENU  ) 

00  { 
WHEN (2  ) 

READ 

FILE?IN1  ) 

SE  T< 11  )  5 

I  N_ 

CTR 

r 

IN. 

CTR 

♦  15 

END  5 

do; 

UHE  N ( 3  ) 

R  E  A  0 

FILE?IN2  ) 

SET  (11 1  ; 

IN¬ 

CTR 

- 

IN. 

CTR 

♦  15 

END  5 

00 ; 

WHEN  <  4 ) 

RE  AO 

FILE? IN3  1 

SET(Il)  ; 

IN¬ 

CTR 

s 

IN. 

CTR 

♦  15 

END  5 

DO  ; 
WHEN (5 ) 

READ 

FILE  ?IN4  » 

SET  (11 >; 

IN. 

CTR 

= 

IN. 

CTR 

♦  1 ; 

END? 

DO  5 
WHENCS  ) 

READ 

FILEUN5  ) 

SETCIl ) ; 

IN. 

CTR 

= 

IN. 

CTR 

♦  1 ; 

end; 

do  ; 

WHEN  <  7  ) 

READ 

FILE  <TN6  ) 

SET  (ID  ; 

IN¬ 

CTR 

r 

IN. 

CTR 

♦  1? 

END  5 

do  ; 

WHEN  <  8 ) 

read 

FILE? IN7  ) 

SETCIl) 5 

IN. 

CTR 

= 

I  N. 

CTR 

♦  1 ; 

END  5 

00 ; 

WHEN  <9  ) 

READ 

FILEdNS  ) 

SE  T (11 >; 

IN. 

CTR 

= 

IN. 

CTR 

♦  1? 

END  5 

DO? 

UHE  N ( 1 0  > 

Rr  AD 

FILE? IN9  ) 

SET  ( 1 1  )  ; 

IN. 

CTR 

= 

IN. 

CTR 

♦  1 ; 

EN05 

DO; 

WHEN (111 

READ 

F IL  E? I N1 0 ) 

SETCIl >; 

IN 

.CTR 

r 

IN 

.CTR 

♦  15 

end; 

oo; 

WHE  N  ( 1 2 ) 

REAO 

F  IL  C  ?  I N1  1) 

SET  (11  )  ; 

IN 

.CTR 

= 

IN 

.CTR 

♦  15 

END  5 

do  ; 

U  HE  N ( 1 3 ) 

READ 

FILE? INI  2) 

SETCIl  )  ? 

IN 

.CTR 

= 

IN 

.CTR 

♦  15 

END  5 

do; 

WHEN( 14> 

REAO 

FILE?  INI  1> 

SETCIl )  ; 

IN 

.CTR 

= 

IN 

.CTR 

♦  1? 

END  5 

DO  ? 

UHE  N  < 1 5  > 

READ 

F  ILE  ? INI «> 

SET  < I 1 ) { 

IN 

.CTR 

= 

IN 

.C  TR 

♦  15 

end; 

do; 

WHEN( 16) 

READ 

FILEIIMI) 

setcid; 

IN 

.CTR 

= 

IN 

.CTR 

♦  I? 

end; 

00  5 

WHEN ( 17) 

READ 

FIL  E? I N1 £  ) 

SETCIl); 

IN 

.CTR 

= 

IN 

.CTR 

♦  IS 

eno; 

do; 

WH  EN ( 1 8 ) 

REAO 

F  ILE  ?  I N1  1) 

SETCIl); 

IN, 

.CTR 

= 

IN 

.CTR 

♦  15 

end; 

00  { 

WHEN( 1 9) 

REAO 

FILE?IN1 t) 

SETCIl) ? 

IN. 

_CT  R 

= 

IN 

.CTR 

♦  15 

end; 

OO? 

WHE  N ( 2  0 ) 

READ 

F  ILE  ?  I  Nl  S> 

SET  (11  )  ? 

IN 

_CT  R 

= 

IN 

.CTR 

♦  15 

end; 

00 ; 

WHE  N ( 2 1 ) 

READ 

FILE? I N2  C  > 

SET (Ill ; 

IN. 

.CTR 

= 

IN, 

.CTR 

♦  15 

END  5 

DO? 

WHEN (22) 

READ 

F ILE  ?  I  N2  1 ) 

SET  (11 )  ; 

IN. 

.CTR 

- 

IN, 

_ETR 

♦  15 

end; 

00  ? 

WHE  N ( 2  3 ) 

REAO 

FILE?IN2  I) 

SETCIl); 

IN 

_CT  R 

= 

IN. 

.CTR 

♦  15 

end  ; 

DOS 

WHEN ( 2*  > 

READ 

F  ILE  ?  I N2  2) 

SETCIl) ? 

IN. 

.CTR 

r 

IN. 

.CTR 

♦  15 

END? 

00  5 

UHE  N ( 2  5 ) 

READ 

FILE?TN2M 

SETCIl); 

IN. 

.CTR 

- 

IN. 

_CTR 

♦  1? 

END? 

00  s 

WHE  N  {  2  6  ) 

READ 

FILE?IN2!» 

SETCIl); 

IN 

.CTR 

IN. 

.CTR 

♦  1? 

END? 

005 

WHEN (27) 

READ 

F ILE? IN2  6) 

SETCIl  )  { 

IN. 

.CTR 

IN. 

.C  TR 

♦  1? 

end; 

do  ; 

OTHERWISE 

REAO 

STOP 

FILE?IN21> 

; 

SETCIl)  ; 

IN. 

_CT  R 

= 

IN. 

.CTR 

♦  15 

end; 

01 

/♦  SELECT 

*/ 

00 

ENO 

UIC  =  1  TO  10?  /, 

IF  U I C_ I N  =  UIC_A(UIC>  THEN  LEAVE? 

If  UIC  >  10  THEN  GO  TO  FEXT1J 

► 

CHECK 

UIC 

*/ 

DO  RT  =  1  TO  575  CHECK  RATINGS 

_u  IF  RT_IN  =  RATI NG_A ( R T>  THEN  LEAVE? 

EN  0  5 

IP  RT  >  57  THEN  GO  TO  N EXT  1 < 

SELECT  (RT  IN > ? 

UHEN(TETR»j  «ETN»  >  DO?  RT  1N='ET  •?  RT  =  6?  rND; 

V  HEN( • STS  •  >  DO?  RT_IN=»ST(*?  RT=28?  END  "N° 


*/ 
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RT  =  2  7  ;  END 


END 

A(RT«UICfl)  =  ACRTtUZCtl)  ♦  II 
NEXT  1 : 

GO  TO  READ  NEXT  RECORD  I 

/»********T*«*4r***fr  SUN  MARI 

SUMMARY:  PROC5 

DO  UtC  =  1  TO  101 
DO  RT  =  X  TO  58] 

A  UTH  N  UM  C 1 1 1  RT )  =  AUTH  NUM(11?RT)  ♦  AUTH  NUM<UIC#RT>| 
AUTH  NUMT UI C i R T ) "  A  IT H_NUM~CNT< U IC , R T )  I  ~  *  1 

UfRT,=  A  ITH  NUHXll  ,RT  >  ♦  AUTH  NUM  CNT(UIC|PT)| 
=  AJJTt_CflJUJIC>  ♦  AUTH  NUM~CNTTUIC»RT)  | 
...Aur  H_CNT  <  11)  =  A  UT  T_CNT  (  11)  ♦  AUTH  NUM~C N T < U I C , RT >  5 
i  N  0 1  *”  ““ 

end; 

00  UTC  =  1  TO  '*  I0,,L  R,T,N6  C0LU""  *' 

n.n.  A(58jUICtl)  =  A(58»IIC*1)  ♦  SUM (A(*yUIC«l))» 

END* 

/*  total  ship  */ 

/»  TCTAL  SHIP  UI C  »/ 

DO  RT  =  1  TO  581  '*  T°™-  UIC  C0LUMN  *' 

END"  A<RT,n»1)  =  AtRT,ll,l)  ♦  SUHCA  C  RT  ,1  ))  ; 

__  .  /•  COMPUTE  *»S  •  / 

DO  RT  =  1  TO  58; 

00  UIC  =  1  TO  111 

IF  AUTH  NUMIUICjRT)  >  0  THEN 
A(RTtUIC*2)=(A  <RT*UIC»1  )/ 

end;  end;  auh_nuh<uic,rt>). 100 


.055 


DO  UIC  =  1  TO  111 

IF  AUTH  CNT(UIC)  >  0  THEN 
A<58*UlC»2>  =  (A<56tUTC*l  )/ 

E  A  UTH  _CNT (UIC ) ) • 100*. 055 


N1  =  15  N2  =  65 
CALL  HOG 5 
CALL  PR INT_PRO C 5 

N 1=  75  N2  =  11 5 
CALL  HOGS 
CALL  PRINT  PRO C  5 
/•CALL  PLOT  OP  5  / 

ENOS  /*  SUMMARY  PROC  */ 


PRINT  OUTPUT 


ENC  OF  FILE  PROCESSING 
OCL  PG  CTR  FIXED  B  I N <  31  >  I NI T  <0  E )  5 

hog:  procs 

PG  CTR  =  PG  CTR  ♦  15 

PUT  PAGES  PUT  ^T<.PALGE-);j[PGTCTR95;0M0C.83F73333., 

CALL^HDG2^T<  <(^0<*^eD‘  ’•  DATE!  1A0))S(SKIP(2)?COL?61)  U.P'9999*)  5 
ENOS  /.HEADING  PROC  •/ 

HDG2 :  PROC  5 

DCL  DASH  CHARC128)  INITU128)'  »)5 
PMT1  :  FORHATCSKIPd  )  ,C0L(  2)  *A>  T 

PUT  EDIT(OASHXRtFMTl)  >5  TUT  SKIPS 
IF  Nl  =  l  THEN  DOS  ’ 

PUT  EOITI'OOGST  RATING  UIC-52,»UIC  A<Y1)* 
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ELSE 


UIC  A (Nl+1 ),UIC_A(N 1*2) *UIC  A(N1*3).UIC  A(N1*A), 

UIC  A ( Nl*5 > ) 

(SK  IPT1 > »CCL  <2  )  *A  ,A ,5(X(14 »  * At ) 
(0ASH)(SKIP(l)«COl(2G)*A(104>) 

(  •!  • , NPC ) ( SK IP  < 1 )  iCOL ( 26)  ,A,A  ) 

(  • ( • *AM) (COL (26>*/*A) 

(DASHMSKIP(P) »CO LC2>»A)5PUT  SKIP} 

:  no  t 

DO!  PUT  ED  IT ( *  OD  G37  RATING  UIC-52**UIC  A(N1), 

UIC  A ( N1 ♦ 1)  *  U  I C  A(N1+2),UIC  A(N1*3)*UIC  Adi**))  ~ 

KVTCm.rni  m.T  .i.xvi  m.m  — 


ui  k.  *ii*itx,*u  ik.  KiniiT£if  uilr  Mir 

(SKIP(1 1 *C0L(2>*X *A *4(X( 14) »X)  ) 

(OA  SH)(SKIP( 1) »C0 1(26  >  *A (1C4)  ) 

(•I  •  »  NP  C  t '  TOT  AVGX  I  •> 

( Si  IP  <1  >*C0L(26)*A*A(69),A) 
t'l  *  »AM| (COL (26) * /*A ( e6 ) I 
(Di SHI  (SKIP < 0»  »C0 1(21 »A ) (PUT  SKIP? 
ENOi 

HDG2  PROC  */ 


end: 

PRINT  PROC :  PROC  5 

FHT2:F0RNAT(SKIP(1),C0L(16I,A,C0L(2SI.6(X(2>,P*ZZZ9»,P*ZZZ9’ 
X  (2  ),P»ZZ9V.'>  •)  I : 

FMT3: FORMAT (SKI3 (1  I  ,C0L(16>  ,A,C0L(27), 

P,ZZZC»*F*ZZZ9»,  X(2  >  *P»ZZ9V. 9* , 

5  (X  (21  ,P'ZZZ9'*  f ' ZZ 25  •  *  X(2)*P*ZZ9V.9«>>? 

DO  RT=  1  TO  30*585 
IF  RT  <  58  THEN  005 

PUT  EDIT  (RATING  A ( RT ) * (A  UTH  NUM(LIC*RT), 

A(RT  ,UlC  ,1  )  ,A  (RT.ljIC  ,2  )  DO  UIC=N1  TO  N2I) 
(R(FHT2)  liPUT  SKIPS 
CALL  CALL!! 

END  5 

ELSE  do; 

PUT  EDIT! RATING  A (R  T) »  ( AUTH  CNT(UICI, 

A (RT*UIC*1)«ATRT*(.IC«2>  DO  UIC=NI  to  N2)l 
( R ( FMT  2  )  I  5  PUT  SK  IP  5 
CALL  CALL25 
END  ; 

ENO  : 

end: 

CALLi:  PROC? 

AUTHORIZED  =  A UTH_NUM( UIC , RT I ?  CALL  WRITE15 
u  N  U  { 


CALL  2:  PROC! 

AUTHORIZED  = 
END? 


AUTH_CNT(UIC) 5  CALL  UR  I T  El  5 


INIT(OB)  1 


URITEi:  PROC? 

OCL  UIC  FIXED  BINC15) 

DO  UIC  =  N 1  TO  N25 
IF  UIC  =  11  THEN  GO  TO  END1J 

PUT  STRING(RECORO)  EDIT(UIC  A(UIC ) ) ( A (3)  ,X  (1 »  I 
(DATE(T  AB )  )TF*  99  99* I 
( RATI N6  A( FT) ) (A(3  >  I 
(AUTHORIZE  C) (P  *999  *  I 
(A (RT.UIC, J) I ( F»9999»  I 

_  ( A(RT »UIC. «> > ( P*999V9* ) ? 

(OUT)  FROM  (RECORD)? 

( OUT  2 )  FROM  (RECORO)  1 
OUT  CTR  ♦  1? 


URITE  FIL 
URITE  FIL 
OUT  CTR  = 
ENDT: 

END  ? 


ENO?  /*  URITEI  •/ 


eoj: 

PUT  PAGE? 

PUT  EDIT  (’TOTAL  RECORDS  IN  s  *,IN  CTR* 

•TOTAL  SMO  RECORDS  CUT  =  »*RECS, 

•TOTAL  RECORDS  0UT=  • t OU T_CT R ) (COL( 5 ) *  A ,P » ZZZ ,ZZ9* ) ? 

ENOI 

/* 

//•GO.SYSPRINT  DD  DUMMY 

//GO. INI  OD  DISP=SHR*DSN=MRDC.UFKXXX.DDG37.P7609 
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SHIPS37 


BOH 


//GO  •  IN  2 
// GO  *  I N  3 
//GO* I  N  4 
//GO. INS 
// GO • I N  6 
//GO* IN7 
// GO • I N  8 
//GO  *  IN  9 
//GO • I  N  10 
//GO. INll 
//GO.  IN  1  2 
//G0.IN13 
//G0.IN14 
//GO* INIS 
//GO* IN l 6 
//GO* I N  X  7 
//GO* I N1 8 
//GO* IN 19 
//GO. IN2D 
//GO* I N  2 1 
//GO. IN  22 
//GO. I N23 
//G0.IN24 
// GO* I N  25 
/ /GO • IN  2 6 
//GO .1 N  2  7 
//GO. OUT 


00 

00 

00 

00 

00 

00 

00 

DO 

00 

00 

OD 

00 

00 

00 

00 

DO 

00 

DO 

00 

00 

00 

00 

DO 

00 


0ISP=$MRtDSM=HR0C.WH<XXX*0DG37.P7612 
DISP=SHRfOSN  =  MRDC  .  W EK XX X.DDG37 . P 77 03 
0ISP=SHR,OSN=HRDC.«KKXXX.DOG37.P770| 
OISPrSHRtOSN=HRDC.WFKXXX.DDG37.P7709 
0ISP=SHRfD$N=MRDC.yXKXXX.D0G37.P77l2 
OISP=SHRfOSN=MRDC.JhKXXX.DDG37*P7|03 
0lSP=SHRf0$N=HRDC.WH<XXX.DDG37.P78C| 
OISP=SHR.DSN=HROC .UhK  XXX.DDG3  7.P7  8  09 
DISP=SHRfDSN=HRDC*VHKXXX.D0G37.P7812 
DI SP=SHRfOSN=MRDC*  kHKX X X. 0 DG37 . P 7 JO  3 
01 SP=SHRfOSN=HROC. VHK X X X .00 G37 . P 7 90 b 
01 SP  =S  HR  9  OSN=  MRDC .  fcHK X X X.DD G37 . P790 9 
01 SP=SHR*DSN=HPDC. VHK X XX.D0G37.P791 2 
01 SP=$HRfD$N=MPOC.  kHKXXX.DDG3  7.P800  3 
01  SP=SHR9  0SN=MRDC. WHKXXX.DDG37.P800 1 
01 SP=SHRtDSN=HROC* VHKXXX.ODG37.P80Q9 
OISP=SHRfD$N=HRDC*WHKXXX.DD937.Pe012 
DISP=SHRfOSN=MRDC.kHKXXX.DOG37.P8103 
OISP=SHRtDSN=MRDC.kHKXXX.DDG37.P&106 
01 SP=SHR,DSN=MR0C.  fcHK XXX.DDG37.PS 10  9 
DI  SP  =  SHRfDSN=  M°DC.  kHK X X X • D OG 37 • P 8 11 2 
01 SP  =  SHRiD$N- HP  OC  • kHKXXX*QDG37.P  8  2C  3 
0ISP=SHRtDSN=MRDC.VHKXXX.DDG37.P820b 
01 SP=SHR,DSN=HROC.  kHK X XX.D D&37 .P 820  9 


0  0  01  SP=SHRfDSN=riRUL.  »n f\AAA.UUl»J#  *ro£j  7 
DO  01 SP-SHRtOSN=MRDC. kHKXXX.DDG37.P821 2 
//GO.IN27  00  OISP=SHRtDSN-HRDC. kHKX XX.ODG37.P830 3 
//GO. OUT  00  OUMMY »DCB=(LPECL=22  |BLKCIZE=13Q 24.RECFM=FBtDEN= 
//♦GO. OUT  00  UNIT-3400-6fDCB=(LPECL=22tBLKSIZt=l 3024fRECF4- 
//♦OSN= BOM. SHIP  14  »OISP  =  tNEWtKEE  H tVOL  =  SER  =  004641 
//GO •  OUT 2  00  DUMMYtDC8  =  (lRECL=22teLK$IZE-13C24#«>ECFM=FB> 
//♦GO.OUT2  00  DISPrSHRt 

//♦  0SN-MR0C.BUCXXX.80M.SHIP23  _  ^  orrru.CQt 

//♦G0.0UT3  00  OUM MY *QCB-<LPECl=  17bt BLKSI ZE  =  13024  iRECFH-F B> 
//♦G0.0UT3  OD  0  ISP  =  SHP  » 

//♦  0SN-KR0C.9LCXXX.SHu2 3 

3420  tRECFM: 
OlLETE ) t 


3) 

FBtDEN=3) ♦ 


F8)  9 
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